MINI ORDENADOR 


PRESENTACION GENERAL PARA LOS NIVELES 1 Y 11 
A a MANEL ES A YA 


DEL MICROORDENADOR TRS-80 


Del mismo modo que la aplicación de la máquina trajo consigo 
la revolución industrial, la incorporación de la informática 
a nuestro mundo .está suponiendo una transformación de incal- 


culables dimensiones. 


Nuestra época no pasará a la Historia como la que dió comienzo 
a la Era Atómica, sino más bien como aquella que permitió una 
de las mutaciones más profundas del medio social, gracias a la 


incorporación de la informática. 


No es éste el lugar adecuado para hacer un análisis sociológico 
de una ciencia, que todavía apenas ha iniciado su andadura en 


nuestro país. Pero el hecho está ahí y es irreversible. 


Para quienes nos dedicamos a la educación y al desarrollo cien- 
tifico-técnico, la informática es un reto, un tren en marcha que 
no podemos perder ni detener. Es preciso tomarlo si no queremos 


ser arrollados por él. Después podremos intentar conducirlo. 


La mejor manera de introducirse en el conocimiento de la Infor- 
mática es ir haciendo uno mismo sus propios programas, teniendo 
posibilidad de ejecutarlos y modificarlos a la vista de los re- 


sultados.. 


Este modo de trabajar posee caracteristicas de indudable inciden- 
cia en el compo educativo, algunas de las cuales queremos resal- 


tar a continuación. 


En primer lugar, estimula la atención de modo natural, eliminando 
el mecanismo emisor-receptor, que a menudo, convierte al alumno 


en un ser pasiva y sin iniciativa. 


El aprendizaje de la programación no supone una lucha contra la 
máquina, sino una superación continua del programador. La máqui- 
ná es ciega, pero enormemente rápida. El programador va tomande 
conciencia paulatina de cómo esta rapidez, supone una herramienta 
eficaz para su propio aprendizaje. El estudiante cae en la cuenta 
de que crea aprendiendo y de que aprende creando. Esto produce 
una sensación de gozo que estimula nuevos búsquedas y nuevos 


aprendizajes. 


En segundo lugar, un adecuado aprendizaje de la programación su- 
pone un desarrollo mental importante, asi como, la creación de 
hábitos que permiten la ordenación metódica del pensamiento ló- 


gico. ¿ 


Hace poco más de una década se estableció en Francia la obliga- 
toriedad del estudio del Algebra de Boule y de sus aplicaciones 
inmediatas er todos los centros de enseñanza. 

Así pues, no se perseguia sólo conocer una técnica aplicada, cosa ' 
que incumbiría a la enseñanza profesional, sino también y sobre 


todo, conseguir un desarrollo mental. 


Esta es la razón por la que opinamos que el aprendizaje de la pro- 


gromación debe tener un lugar tombién en nuestro B.U.P. 


En tercer lugar, el modo conversacional de operar con la máquina 
informática puede ser muy Útil para la adquisición de conceptos 
en el campo matemático, físico y aún tecnológico, que, de otro 
modo, suponen un esfuerzo de abstracción en el vacio, que pocos 


escolares pueden realizar. 
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Naturalmente, esto supone una orientación didáctica importante 
por parte del profesor de la materia en cuestión, profesor que 


habrá de conocer, además, el lenguaje de programación utilizado. 


Considerando que, de momento, la gran moyoríia de profesores de 
una materia determinado no tiene conocimientos de programación, 
hemos incluido en nuestros manuales un importante capitulo des- 


tinado a la comprensión de algunos conceptos matemáticos y fí- 


JO 


Todas las característicos citadas hasta ahora están dirigidas 
en el TRS-80 NIVEL 1, tanto para estudiantes de FP2 como de 
B.U.P. 

La cuarta característica a considerar es la utilidad práctica 


de la informática. 


El abanico de aplicaciones es inmenso, pero vamos a ceñirnos 
al campo científico-técnico en sus dos especialidades mecánica 
y eléctrica. En cada una de ellas existen técnicas en las que 
la aportación de la informática es fundamental. Tales son, el 


control de mando numérico y los microprocesadores. 


El control numérico está transformando la máquina-herramienta 


convencional, a la que quizás llegue a desterrar. 


Los microprocesodores permiten cutomatizar cualquier tipo de 
proceso industrial o de la vida ordinoria, siendo además el 


núcleo generador de la robótica y aún de la misma informática. 


El TRS-80 NIVEL 11 posee la potencia suficiente para incidir 
en los compos citados y en otros, pudiendo citar entre éstos 
como ejemplo más relevante, el de la organización y gestión 


empresariales. 


Este nivel sería el correspondiente a escuelas de Ingenieria, 
aunque no descartamos la posibilidad de que pueda ser utilizado 


en FP2 si el nivel previo se desplazo a etapas anteriores. 


Una quinta característica de la informática es la posibilidad 

de almacenar programas, cuya ejecución puede ahorrar tareas ru- 
tinarias. Tal es el caso de la resolución de sistemas de ecuacio- 
nes algebraicas, sistemas de ecuaciones diferenciales, métodos 


de aproximación de curvas, desarrollo en serie de Fourier, etc... 


Esta caracteristica del ordenador o sistema informático como 
“regla de cálculo potente", cuya hermana mediana sería la calcu- 
ladora de bolsillo programable, ha sido preponderante en las 


aplicaciones de la informática en el campo cientifico-técnico, 


La influencia de esta característica en el campo estrictamente 
pedagógico o didéctico es mucho menor, requiriendo por otra par- 
te, el concurso de equipos más sofisticados. Tembién se cubre 


en proporción suficiente con el TRS-80 NIVEL 11. 


APARTAOO. 4” 


INTRODUCCION 
PROLOGO AL TRS-80 NIVEL 1 
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Este manual ha sido escrito pensando en el estudiante que no 
sabe nada sobre computadoras y desea introducirse en el mundo 
de la programación de manera rápida, sencilla, eficaz y hasta 


divertida. 


El sistema TRS-80 ofrece al usuario la posibilidad de programa- 
ción en lenguaje BASIC; este tipo de lenguaje destaca, dentro 
del amplio espectro existente, por su sencillez unida a una 
oceptable potencia y flexibilidad. Estas cualidades le acredi- 
tan como uno de los más usados en las escuelas media y superior 
y de gran utilidad en aplicaciones empresariales, técnicas y 


científicas, 


Se pretende que este manual vaya orientado hacia niveles de 
enseñanza tales como FP2 y B.U.P.; por esto nos hemos propuesto 


en su elaboración tres finalidades 


a) Desarrollo de la capacidad de razonamiento del esco- 


lar. 


b) Ayuda en la comprensión de las distintas materias de 


enseñanza. 


c) Posibilitar el uso del TRS-80 como herromienta de tra 


bajo en el compo cientifico-técnico. 


Finalidad a).- La filosofía de programación BASIC, al igual 

que cualquier otro lenguaje, ofrece al alumno un desafío a su 
imaginación y ¿started de razonomiento. Nosotros pretendemos 
que este desafio sea gradual, de manera que el lector vaya in- 
tegrando conocimientos a medida que avanza en el aprendizaje de 


las nuevas instrucciones de programación. 
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Para llevar a cabo nuestro propósito, a lo largo de los capi- 
tulos del manvol se van proponiendo y resolviendo ejercicios 
fáciles, que irán creciendo en dificultad a medida que se pro 
gresa en el conocimiento del lenguaje BASIC, para culminar con 
un apartado de ejercicios de juegos. Hemos elegido este apar- 
tado de juegos porque pensamos que es una buena forma de mo- 
tivar al aprendizaje de la programación BASIC. Es importante 
que el lector vaya tecleondo y ejecutando los programas para 
conseguir un aumento de la confionza en sí mismo y estimulo 


por el tema. 


Finalidad b).- El alumno con conocimientos de programación 
BASIC, está en fronca ventaja a la hora de asimilar determi- 
nadas materias de que se compone su curso académico. Este 

manual permite utilizar el microordenador TRS-80 como ayuda 


z 


a la comprensión de esas partes más dificultosas de matemáti 


cas, física, etc... que por su nivel de abstracción, resultan 


de más difícil osimilación. 


Para conseguir esta finalidad incluimos un apartado dedicado 

a la resolución de problemas y puntos teóricos dificultosos 

en materias de enseñanza fundamentalmente numéricas. Una gran 
ventaja del ordenador estriba, en que permite una visualización 
secuencial en la ejecución de un proceso (en nuestro caso un 
problema matemático, por ejemplo); ideas como la de derivada 

o integral adquieren, mediante el tratamiento secuencial-in- 
cremental, una nueva perspectiva que colabora en la asimila- 


ción del concepto. 


Finalidad c).- El iniciado en programación BASIC, es capaz 


ya de intuir las enormes posibilidades de su microordenador. 


Trabajos de cálculo extremadamente dificultosos y largos de 
ejecutar, dejarán de serlo al ser editados y ejecutados en su 
sistema TRS-80, ya que una vez orabados en cinta, posarán a for 
mar parte de su biblioteca de programas y estarán listos para 
ser utilizados como herramienta de cálculo cuando sea preciso. 
Los apartados finales de este manual, contienen una variada ga- 
ma de programas de utilidad práctica. Se sugiere el estudio de 
dichos programas para completar el aprendizaje de la programa- 
ción BASIC NIVEL 1. 


PUESTA A PUNTO DEL SISTEMA 
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PRIMEROS CONSEJOS 


Desempacar cuidadosamente el sistema. Quitar todo el material 
de empaque y guardarlo para cuando se necesite transportar el 
sistema. Asegurarse de localizar todos los cables, popeles, cin- 


tas, éle.! 


CONEXION DE LA PANTALLA DE VIDEO Y TECLADO 


1. Conectar el cable de la pantalla de video a una toma de c.a. 
de 220 Y. 50 ciclos. 

2. Conectar el cable del alimentador a una toma de c.a. de 
220 V. 50 ciclos. 

3. Conectar el cable gris del monitor de video al borne "VIDEO", 
que esta localizado en la parte trasera del teclado. Asegu- 
rarse de conector bien los terminales (el conector sólo entra 
bien en un sólo sentido). 

NOTA : 

_Ántes de efectuar el siguiente paso, asegurarse de que el in- 
terruptor "PONER", que se encuentra en la porte trasera del 
teclado, esté apoyado [el botón hocia fuera), 

4. Conectar el cable gris del alimentador al borne "POWER" que 
se encuentra en la parte trasera del teclado. Una vez más 


asegurarse de unir los conectores correctamente. 


Ar 


CONEXION DE LA GRABADORA 


NOTA : 


No es necesario conector la grabodora de cinta a menos que se 


necesite grabar programas o cargar programas al TRS-80. 


1. Poner las baterias al CTR--80 (grabadora) como se describe 


en el manual, ó% efectuar la conexión a la línea c.o. de 


LAN 


2. Conectar el cable corto (conector DIN en un extremo y 3 conec 
tores en el otro extremo), al borne TAPE en la parte trasera 
del teclado. 


Asegurarse de efectuar la conexión correctamente. 


3. Los 3 conectores del otro extremo de este cable, son para 
efectuar las conexiones al CTR-80. 
A. Enchufar el conector negro al borne EAR que se encuentra 
en un costado del CTR-80. Esta conexión, proporciona la 
señal de solida del CTR-30 al TRS-80, (para corgar los 


programas de la cinta al TRS-80). 


B. Enchufar el conector gris de clavija más gruesa, al bor- 
ne AUX del CTR-80. Esta conexión proporciona la señal de 


grabación para grabar programas del TRS-80 al CTR-80. 


Además enchufar el conector falso (suministrado con el 
CTR-80) al borne "MIC" (esto desconecta el micrófono in- 
terno para que no recoja sonidos mientras se están car- 


gando cintas). 


NOTA : 
Asegurarse. de usar siempre el conector falso mientros se 


graban programas en cinta. 


C. Enchufar el conector gris de clavija más delgada al 
borne REM en el CTR-80. Esto permite que el TRS-80 
controle automáticamente el motor del CTR-80 (encender 
y apagar al movimiento de la cinta para grabar É corgar 


los programas). 
NOTAS ACERCA DEL USO DE LA GRABADORA 


Existen varios puntos que se deben tener en cuenta cuando se 
utilize el sistema de cinta (más adelonte, se dará sobre esto 
mayor información, cuendo se hable del uso del casette de cin- 


ta). 


1. Para utilizar la cinta (cargar un programa grabado al 
TRS-80), deberá colocarse el control del volumen de la 
CTR-80 en 7 u 8. Luego se presiona la tecla PLAY del CTR- 
80 y se teclea CLOAD en el TRS-80 y se introduce este co- 
mando presionando [ENTER] . Esto inicia el movimiento de 
lo cihta. Un* aparece en la línea superior del Monitor; 
un segundo * parpadea, indicando que el programa se está 
cargando. Cuando se termine de cargar, el TRS-80 automática 
mente apaga el CTR-80 y aparece READY en la pantalla. En- 
tonces se estorá listo para ejecutar el programa, pora'lo 
cual se teclea RUN y se presiona PENTER]. 


2. Para grabar un programa del TRS-80, se presionan las teclas 
RECORD y PLAY simultáneomente. Después se digita CSAVE en el 
TRS-80 y se introduce este comando mediante la tecla | ENTER]. 
Cuando se haya grabado el programa, el TRS-80 opogará automá 
ticomente el CTR-80 y aparecerá READY en la pantalla. Ahora 
se tiene el programa en cinta (además está aún en el TRS-80) . 
Muchos usuarios de computadora efectúan una segunda y hasta 
una tercera grabación de la cinta, solamente para asegurarse 


de tener una bueno grabación). 
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NOTA : 
Para cargar los 4 K de memoria (RAM) del TRS-80 no son ne- 


cesarios más de 3 minutos de cinta de casette, 


Utilizar el contador de cinta del CTR-80 para ayudarse en 


la localización de los programas grabados en la cinta. 


Para obtener mejores resultados, se recomienda el uso de 
los casettes para computadora de 10 minutos Radio Schack. 
Pero también se pueden usar cintas standard para audio, 
asegurándose de usar las de buena calidad, tales como 
REALISTIC SUPERTAPE. Hay que tener en cuenta, que los ca- 
settes para audio tienen zonas, en ambos extremos, de ma- 
terial no magnético y por consiguiente, no se podrá grabar 


sobre ellas. Se debe avenzar la cinta hosta haber pasado 


esta zona antes de intentar la grabación. 


Cuando no se tenga que utilizar el CTR-80 para cargar o gra 
bar programas, no se deben dejar presionadas las teclos 


RECORD 6 PLAY. Pulsar la tecla STOP en estos casos. 


Para rebobinar (REWIND) o adelantar (FAST-FORWARD) la cinta, 
se debe desconectar el conector del borne REM; (con el bor- 


ne REM conectado, el TRS-830 controla el movimiento de la 


cinta), 


Si desea guardar un programa grabado en forma permanente, 
se tiene que romper el protector de borrado del casette 


(ver el manval del CTR-80). 


No exponer las cintas grabadas a campos magnéticos, Evitar 


ponerlas cerca de la toma de 6.0. 


?: Para comprobar si una cinta tiene un programa grabado, 
se puede desenchufar. el conector del borne EAR (también 
debe desenchufarse el conector REM para que se pueda con- 
trolar el CTR-80 con las teclos) y reproducir la cinta; 


de esta manera se escucha el programa por el altavoz, 


ENCENDIDO DEL SISTEMA 


Encender la pantalla de video tirando del botón POWER. Encen- 
der el teclado del TRS-80 oprimiendo el botón POWER localiza- 
do en la parte posterior-derecha al lado del borne POWER; el 
diodo luminoso de la derecha del teclado debe encenderse y 


en la pantalla aparecerá READY 


| 
z ! 


Puede ajustarse el contraste y el brillo con los controles ¡ 
localizados en la parte frontal de la pantalla, No se debe co- 

locar el Control de brillo demasiado alto, | 
NOTA : 


Existe un botón de reajuste detrás de una puertecilla situada | 
en la parte posterior izquierda del teclado. Este botón puede 

usarse para deshacer un estado cíclico de la computadora 9 bien 

cuando el TRS-80 no para el casette 6 en cualquier situación. 


anormal dentro del programa. 
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CAPITULO 1 


ISI 


CARACTERISTICAS DE LAS COMPUTADORAS 


Desde el momento en que se enciende, la TRS-80 “sigue unos reglas 
bien definidas para su manejo por el usuario. Esto la convier- 
te en una computadora especialmente fácil de usar. A grandes 
rasgos, todo lo que se debe hacer es decir lo correcto en el 
momento adecuado, (a través del teclado). Por supuesto hay 
"muchas cosas correctas" que se pueden decir; el ensamblarlas 


para lograr un propósito es lo que se llama programar. 
PREPARACION PREVIA A LA PROGRAMACION 
A RUS RAMA LON 


1. Conectar el teclado, la pantalla de video y el alimentador 


de c.c. tal y como se explicó en la sección anterior. 


2. Oprimir el botón POWER de la pantalla de video y de la 
parte posterior del teclado. Esperar unos segundos para que 


se caliente el tubo de video. 


3. Al cabo de unos segundos debe aparecer el mensaje  READY 


A dl 


en la esquina superior izquierda de la pantalla. Si se 
oprime la tecla | ENTER | varias veces, la pantalla se llena 
con mensajes READY, esto quiere decir,que la microcomputa- 


dora está preparada para trabajar con ella, 


Para asegurarse de empezar con la computadora despejada, se 
teclea NEW, para borrar todas las instrucciones de prueba 

o progromas anteriores, y se oprime [ENTER] (no usar la 
tecla [ "SHIFT", las letras son todas mayúsculas). 
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¡ No se debe oprimir la tecla ENTER] todavia ! 

Si está equivocada la línea, no Nay por qué preocuparse; es mu 
cho más fácil la corrección de errores de escritura en la TRS-80, 
que en una máquina de escribir normal, Simplemente, se debe pul- 


sar la tecla de retroceso (+) y el carácter más a la derecha, 


se borra. De esta monera se podrá escribir la línea de nuevo. 


Observemos atentamente el mensaje escrito por nosotros, res- 


pondiendo a las siguientes preguntas : 


1. ¿Aparece todo lo que está después de la palabra PRINT 


dentro de las comillas? 


2. ¿Existen algunas otras comillas ? 


' En o ar 
Si todo está bien, se puede oprimir lo tecla ¡ENTER/. El apun- 
tador (>) reaparecerá. La Computadora está diciendo, "Muy 


bien, ¿qué sigue?." 


Pero ¿qué sucede si ya es demasiado tarde ? 


Si se encuentra algún error después de haber escrito una línea 
y haber oprimido la tecla ¡ENTER¡, no se podrá usar la teclo 
de retroceso (e) paro corregirlo. En su lugar, se reescribe 
correctamente la línea completa. Tan pronto como se oprima la 
tecla [CENTER], la nueva línea reemplazorá a la incorrecta. 
Esto se debe a que ambas líneas comparten el mismo número ini- 


cial (en este caso, 18 ). 


NOTAS : 


- Se observará cómo el pequeño guión (—) se desplaza a través 
de la pantalla cada vez que se teclea una letra. Este es el 
"cursor" que informa exactamente en qué lugar se va a impri- 
mir el próximo carácter, oprimiendo la barra espaciadora, se 


mueve el cursor sin imprimir nada, 


15 


- Si se oprime la tecla LENTER] por segunda vez, en la pantalla 
se leerá 
READY 
A 


Esto puede ser alentador, pero no es necesario. Mientras se 
encuentre el apuntador (>) en la parte inferior de la panta- 


lla usted sabrá que es "su turno". 
EJECUCION DEL PROGRAMA 


Ahora se le puede decir a la computadora que ejcute nuestro 
programa. La orden en BASIC pora ello es sencilla : RUN. Así, 
si se teclea RUN y oprime | ENTER] y no se ha cometido ningún 


error, la pantalla debe mostrar : 


¡ HOLA. SOY TU NUEVA MICROCOMPUTADORA TRS-80 ' 


Se puede teclear RUN tantas veces como se quiera y en la panta- 
lla aparece siempre la misma respuesta, ya que, cada vez se está 


procediendo a la ejecución del programa editado. 


NOTAS : 
- Ya'sea que se esté escribiendo un programa, o dando órdenes 
Cd cae pes ; . 
directas, como RUN, debe oprimirse LENTER] para informar a la 
Computadora que se fije en lo que se ha escrito y actúe de 
acuerdo con ello. 


- Es posible "perder el control" de la Computadora, de manera que 
: A o 

no aparezca el mensaje de READY cuando se oprima ¡ ENTER|. Pa- 

ra recuperar el control, sólamente hay que oprimir | BREAK | ; 

y después [ENTER |. Si ésto no funciona, se debe buscar el bo- 

tón de Reajuste dentro de la esquina izquierda del TRS-80 y 


pulsarlo. 
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comillas 


CAPITULO 2 


COMO AMPLIAR UN PROGRAMA 


Ya se tiene un programa en la Computadora. (Si se apaga entre 
lecciones, podemos encenderla de nuevo y escribir la linea 

1% del Copitulo 1). Es tan sólo un programa de unc línea, va- 
mos a ompliarlo agregándole una segunda línea. En BASIC, cada 
línea dentro de un programa debe tener un número, y el programa 


es ejecutado en orden ascendente, o sea, del número más bajo 


al número más alto. Podemos escribir : 


26 PRINT "¿LLAMO USTED? ¿ORDENA ALGO?" 


r 


Debe verificarse la línea cuidadosamente, especialmente las 
comillas. Si se ha hecho todo correctamente y se tecleo RUN 


y pulsu [ENTER | la pantalla debe mostrar 
Ma 


¡HOLA. SOY TU NUEVA MICROCOMPUTADORA TRS-88 ! ¿LLAMO USTED? 
¿ORDENA ALGO? 


, 


Si el progroma ha sido ejecutado bien, puede contestar escri- 


biendo : 


SI | ENTER 


A 


La pantalla debe mostrar 


¿WHAT? 

Este mensaje de error es el resultado de un dispositivo interno 
que busca errores, informa cuando se ha dicho algo incorrecto 
(o algo correcto en el momento inadecuado). El mensaje WHAT? 

de la pantalla quiere decir, "No, No, el programa escrito no 


tiene la información conveniente para que yo pueda dar una 


respuesta", o palabras similares para tal efecto. 
Pr f 


En una lección posterior se verán otros mensajes de error. 
Entre tanto, si aparece un WHAT? HOW? o un SORRY, debe exami- 


narse el programa en busca del error. 


NOTA : 


Se ha usado 4 en lugar del número cero, con el fin de que pueda 
distinguirse la letra del número. De ahora en adelante lo hare- 


mos siempre así, a lo largo de este manval. 
EL PROGRAMA CRECE 


Es costumbre, espacior las líneas de un programa 14 números entre 
sí. Se puede observar que el programa de dos líneas tiene los 
números 19 y 2%. La razón es que es mucho más fácil modificar un 
programa, si se dejan espacios para intercalar nuevas líneas en- 
tre las yo escritas. No se gana nada numerando las líneas más jun- 


tas entre si (como 1,2,3,4) Esto último no debe hacerse «nunca. 


Escribiendo la nueva línea 


15 PRINT ENTER | 


Y haciendo luego: 


RUN | ENTER 


Debe aparecer 


¡HOLA. SOY TU NUEVA MICROCOMPUTADORA TRS-88 ! 
¿LLAMO USTED? ¿ORDENA ALGO? 


¿ Pero que pasa con la línea 15??? Dice PRINT, pero no imprime 

nada. Eso es lo que sigue a PRINT, y eso es justamente lo que ha 
impreso. En el proceso de la no impresión, automáticamente se ac- 
tiva el retroceso del carro y se inserta un espacio entre las lí- 


_neas impresas 1H y 28. De esta forma es cómo se inserta un espacio. 
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El final del progrema es, claro está, la última declaración 
que se quiere que la computadora ejecute. La mayoría de las 
computadoras requieren que se ponga una declaración END (Fin), 
de manera que la computadora sepa que ha terminado. Pero la 
TRS-88, tiene la declaración END opcional; puede ponerse o no. 
Hay que recordar, sin embargo, que si se desea ejecutar al- 
guno de estos programas BASIC en otras computadoras, prooa- 


3A 
blemente se necesite la declaración END. 


Por las reglas que gobiernan el usa de END, la mayoria de los 
dialectos del BASIC (que requieren END), insisten en que sea 
04 


la última declaración en un progrema que viene a decirle a la 


ón, se le acciona el nú- 


pas 


computadora "eso es todo". Por tradic 
mero 99 ¿$ 999, ¿ 9999 (6 más grande), dependiendo del número 
más grande que una determinada computadora acepta. La compu- 


tadora RADIO SHACK acepta números de líneas hasta 32767. 


Podemos agregar una declaración END a nuestro programa, es- 


cribiendo : 


| ¡ 
99 END [ENTER | 


O | 


si ejecutamos el programa 


RUN [ENTER 


La pantalla debe mostrar JE 


HOLA. SOY TU NUEVA MICRUCOMPUTADORA TRS-5D ! 
¿LLAMO USTED? ¿ORDENA ALGO? 


- 


¿Por qué no se imprime la palabra END? La respuesta es 
ó q p P 
porque no se imprime nada a menos que sea el "objeto" de 


una declaración PRIN 


2) 


OTROS USIS PARA END 
RA E 


Ñ 
Ea ma ON A 1 NEP ÓN : 
Si Juawz END de la lísec : 2 Li A ; 
ARMA Se AA Line A 
o e vá > JT 
1 
PA A pan 1 U A 
el progrena con RUN, ¿qué 2esc” 
e oca - z 
Fínalize 10 ajocución, desrués de j 8 
Ñ 20, Cescués de E EAS 
-- * ( 
espacio, 
E : 
sl US Sram = . E - me ” Lnet d 
¿Ue suceda si se mueva ENDS a iy Linse 137 ¿Wa dal idas iS 
Z E , ps de Ts 
ta 
ETSCRUCr estas oruab añ LS 
Ye IAS PURAS PERO antender al sfactalde lncdra rar 
o O 


a 
, 
“0, dependiendo del. lugar donde esté dentro del progzcma 


Y2mos «a provocar ] pición: e ; 
+5 40 eporición: ce un mensaje de estor diferente 


[e 
0 
1] rd 
As 
3 
4 
a 
¡57 
[SN 


DAS O , 
DEDÁÓ . La comoutudsro conteste con un mensaje 


14] 
ES 
et 
(Da 
(2 
Ús 
a 
ej- 
de] 
O 
o 
40) 
fa 
Y 
18] 
o 
Q 
. 
(0) 
y. 
Puna 
y 
SE 
a 
(E 
(b 
tn 
Fr 
[9] 
wm 
Fa 
= 
ES] 
D 
a 
ur 
Q. 
o 
has 
de 
py 
(43) 
a 
ES! 
a 
E 
(6) 
i 


Ñ 


» BEA A : 
En general un mensaje HOW? significa "entiendo los instrucciones 
pero me piden hacer algo que está | 


E E E 
7 : ! . * . , 


El mencasanA o 
El mensaje de error WHAT?, sin embargo, significa " no entiendo 
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> 
LO 


e 3 - 
(En 
A A 


149) no LA o 

Cc. o. 30] 
o LJ 2) 
Eo E 

(edo o) xo 
Y *-) 7 ad 
0) x= 3 (8) 
Ps hu O mn 
1) Qe 1 3 
n tl c y- o 
3 E 3 EE 
v TE O ) e 
22 == E LA 


e 
A E oO 
O. a tal 


¿Y 


CAPITULO 3 


PUEDE EL TRS-80 EJECUTAR CALCULOS MATEMATICOS ? 


La aritmética básica 


(b 


s muy sencilla para el TRS-80. Tombién 
lo son los cálculos matemáticos com lajos, cuando se escriben 
4 


1 
i 


programas para que los ejecute, 

(Es+ di 1 to liará a Casivya coityl y 

¿ESTOS procedimientos se ampliarán en sucesivos capítulos), 

EL BASIC, NIVEL 1, utilizo las cuatro operaciones fundamenta- 
, É 

les de la aritmética, ademós de una quinta operoción que es 


simplemente una modificación de dos de las enteriores. 


l. Adición, usando el símbolo + 
2. Substracción, usando el símbolo - 
3. Multiplicación, usando el símbolo especial + 
4. División, usendo el símbolo / 
qu 


E N Ep ( . + ES a Ñ * mes E E 
2. Negación (que significa "multiplicación por menos uno"), 


usando el símbolo _ 


Hay que tener mucho cuidedo pora no utilizar una "X" para la 
multiplicación. La "X" es una letra y nosotros usamos las letras 
como variables dentro del programa. Por tonto, el asterisco '*" 


para la computadora es el único símbolo que significa multiplicar. 


Por supuesto, también necesitamos el signo "igual" (=), Pero el 


lenguaje BASIC tiene unos particularidades pors la forma en que 


et 


xpresiones matemáticas (como 1 + 25) 


i 


1) 


debe ser usado este signo. 


El. 
o 
¡aX 
ib 


pueden expresarse sólamente al lado dere 
lado izquierdo está reservado pora la "cantidad varicble". Este 
es el nombre que se da al resultado de lo expresión matemático. 


ls 
(todo esto puede parecer un poco extraño, pero es en realidad muy 


po | 
fa 
a 
wm 
uu 
Os 
10 
po 
ps 
a 
va 
n 
e 
as 
ya 
0 
E 
er 
10) 
uu 


simple, como se descubrirá e 
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jtilizor todo esto en un programa es sencillo, de modo que 
vamos a hacerlo. Pero primero debemos borrar el "progroma 


residente” en lo memoria de la computadora. 


teclear la arden 


¡INE 
NEW ENTER | 
O ll 
y luego 


i 
LIST | ENTER ! 
e ARO 


para comprobar que no existe neda en le memoria. La computa- 


dora debe responder con un simple ... 


da 


NOTA : 


“Progroma residente" es un término usado en las computadoras 


i 


13 pl 


que quiere decir 'lo que hay en la memorio en estos momentos". 


HACIENDO TRABAJAR A LA CCMPUTADCRA 


Vamos a utilizar chora la computadora para resolver problemas 
p 


. fe 


sencillos, lo cual significa tener que usar ecueciones. Una 


.. 


ecuación es tan sólo una pequeña declaración que dice : lo que 
se encuentra a un lado del signo igual es equivalente a lo que 


encuentra al otro lado del signo. 


Partiendo de la conocida ecuación : "La distancia recorrida 
es igual a la velocidad multiplicada por el tiempo que dura 
el viaje”, se puede elaborar un progrema en BASIC. 

Para acortar esto ecuación, podemos escoger olgunas letras 
(llamadas variables) pcra que representen a estas tres canti- 
dades. Podemos escribir esta ecuación en 


ción aceptable por el TRS-30, y que se encuentra en BASIC. 


49D =R + T 
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s valores que conocemos, así como, 


o 
aquellos que deseamos calculer. Cuando sea posible, es muy buye- 


s que recuerden aquello que representen, 


opcional 


de BASIC : 


48 LET D= R=>T 


Este uso de LET, nos recuerda que el haber hecho a D igual a 

R por T ha sido porque asi lo escogemos. En algunas computadoras 
siempre es necesario el uso de LET al progremar ecucciones, 

El TRS-30 no lo necesita obligatoricmente, por tanto, se puede 

o no colocar la declaración LE 


ES ES 7 Pa A o 
MERA DS O META O E ¿cama 


m 


co A PE JO 
50.85 ZO qUe 1d 


los valores de R y-T, los multiplica y csicna el velor resultean- 


10 


a E . , 

MIA e ” e E dez 

que Fécosódí ae, el lado izculerdo de la ecueción esté ceser 

2 .— 
pa | = pa 5 = Y a lada PA E E a 2 Y 

VWoeo Saa es vesicales (ne Importiaclé stro que se escote), 

A : P 4 

> pl p.m - im 1 - 5 si - - - - 

cl 2360 gerecro ss el lucar dende say cts colocar las ex 


nes sataméticas: que involucren números, opercciores y vezicbles 


' 
.. pue ” st mo > - pa .. 
Para esmpleter nuestro progicna susonacnos 2ue 


Kilomet 


E f Pd 
ras). ¿Cue 
avión, viajando a una velocidad media de 380 kilómetros por 


hora ace el viaje en 6 horas ?. 


AA 


19 REM * DISTANCIA, RAPIDEZ, TIEMPO, PROBLEMA * | ENTER 


Pc a 


e) 

pS 
| 
" 


Ag D =R=* T ¡ENTER | 


A] 


E E ES 2 PA ars ¿iron er n= ba = + 1 
Desovés de verificar el OTTO SaGrRGa COLOCO OOSOmMania, 39 TROcled ... 


cry 


RUN : ENTER | 


En la pantalla debe ararecer 


READY 


E , o De A =Arl Ar 
S 1ocrá. La computadora ha multiplicado 3£% »or $ tal 
y como le habiamos dicho y ha calculado la respuesta de 3088 


ilómetros, pero nos hemos olvidado decirle que nos propor- 
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Se recomienda terminar 


. 


cesita una línea més, 


Al final del capitulo 


primer ejercicio, 


computadora, éstas debe 
bio, si lo que se quiere 


caso D), hay que om 


especial atención 


Ahora supongamos 


y 
como algunas palab 


antes de continuar. 


vue queremos incluir tanto el val 


una calculadora or- 


nos lleva de nuevo 


D, no hay comillas 


variable (en nuestro 


sencillo, merece 


Lo] 
Li! 
a 
í 
16] 
ES 
(QA 
e; 


ras especificas en la misma línea. Hay que 


poner mucha atención a la decloroción PRINT porque da más pro- 


blemas a los principiontes que cualquier otro cpartado de la 


programación. 


Teclear : 


SÓ PRINT " LA DISTANCIA 


Luego 
A 


RUN | ENTER 


¡AE 


Acroian nani 


(EN KILOMETROS? 


HA, Li ara 
LS LENA 


En la pentalilo debe aparecer 


E , có : 
pu = z . > . = 4 - - - - . $” 

El menso7e iréluido entras s8 50 impreso tol y como 
1 E O A A A A a DA 
0 e€SsSpeciticomaos A AA AS A AUS SILA. LOs Oo 
La dé A A A A 

Sra E CONCORD A O a a cr 22 as 


E 4 s 
ma líheo, simclemaente lasertinda conga entre ellas 
Toa Ae mm mal ES 1 0 ] A 

Ss Ea Lc 0 as A AE 
¡OMAndoO como. Teretencio 0 qua Eccscmos «de gecir, ¿OMO Se 


conseguiría que la computadora escricierc el siguiente men- 


saje? 


LA DISTANCIA ES IUG KILOMETROS. 


50 PRINT " LA DISTANCIA ES", D, “KiILOMETROS". 


ES art “ sr” z “a: Hd ; 
¿Que sucede con toco el espucio restante da la líinsa de im- 


presión? La razón de que 
la computadora divide al ancho 
de quince caracteres codo una. 


contiene dos o més elsmentos 


dora automáticomente imprime 


nas de impresión. La distribución automática en zones es un 


medio muy conveniente pora dor salida a la información en 
f tabulod ña eztenss ads ade lente 
vOrmMa rcadulada, como vezamos mas adezlonte. 


de nuestro progrema, sustituyendo los comes [, ) por puntos 


Ax " 
y comes (4), 0 lo lerzo de 


Una vez ilevado a coto y teclecndo 
AA 
RUN! ENTER 
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SOLUCION 3 LOS EJERCICIOS PROPUESTOS EN EL 3% CAPITULO 
HA A Y RG 


PA e a 


po] 
mi 
uN 
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c 
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¡> 
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A 
O 
il 
A 
í 
e? 
A 

1 
sen 


EJECUCION TIPO PARA EL EJERCICIO 3-= 
3028 
Proboblemente ha sido utilizoede un número de línea diferente 


en la respuesta pero esto no tiene ninguna importancia; de lo 


DOT 


ve se trata es de utilizar la declaración PRINT. No hay que 
o] 


13 REM + SCLUCION DEL TIEMPO CONCCIENDO. DISTANCIA Y 


20D = 306% 
30 R = 588 


49 T = D/R 
59 PRINT "EL TIEMPO REQUERIDO ES MRE O de 


Pe 
NOTA 
' ; 
as e 4 ds NTED : IS 
Hoy que recordar que se debe Prim? da acia! ENTER Dssgias 
2 4 


EJECUCION TIPO PARA EL EJERCICIO 3-2 


EL TIEMPO REQUERIDO ES 6 HORAS. 


Y 


LA CIRCUNFERENCIA DEL. CIRCULO ES 189.9 METROS. 


una variable 


RESHUESTA TIPO TAL EJERCICIO 3-4 


1% REM+ SOLUCION AL AREA CIRCULAR * 
29 P 
e 
4 A=P*RER 


5%  PRINT "EL AREA DZL CIRCULO ES"; Aj "CENTIMEYROS CUADRADOS”. 


ti 


E 
e 


3 
5 
Pp 


he 


EL AREA DEL >. 2 PULGADAS CUADRADAS. 


LODACTO 1 Pad - SIN Ed E pa ” ES yt 
ELBASIC MIVEL L, no tiene la cion que "eleva a una potencia 
sa 
A A £ <= XATUE y 1-3 y aida E 
pera tradajar con RR. (EL NIVEL 2 sí la trae) en algunos casos 
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EJERCICIO 4-2 :Combiar las líneas 248 y 3% del programa para la 
Solución de las Millas recorridas por Automóviles (del ejercicio 
4-1) para que exprese los números en notaciones exponencial o 


SSN (Standard Scientific Notation). 


(La £ representa "exponente", y en nuestro caso se refiere 
al exponente de 14, esto es, los ceros a la derecha, o a la 


izquierda, del número principal). 


Material Aprendido en el Capitulo 4 


VARIOS 


Notación - E 
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SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL 42 CAPITULO 


RESPUESTA TIPO PARA EL EJERCICIO 4-] : 


19 REM + PROGRAMA PARA LA SOLUCION"DE LAS MILLAS DE LOS 
AUTOMOVILES * 


24 N = 1DBLG00 
30 D= 140% 
4Y T=N*D 


5% PRINT " EL NUMERO TOTAL DE MILLAS RECORRIDAS ES", T 
EJECUCION TIPO PARA El EJERCICIO 4-1»: 

EL” NUMERO TOTAL DE MILLAS RECORRIDAS ES 1€ + 18 
Ds SS AA s 


Como se explicó anteriormente, esta respuesta es el número 
1 seguido de 1% ceros. La computadora, nasimprime ningún 
número mayor que 999,999 sin convertirlo a notación expo- 


nencial. 


19,000,090, 06 


RESPUESTAS TIPO PARA EL EJERCICIO 4-2 :; 

2DN = 1E + 6 

3D =1E +4 
EJECUCION TIPO PARA 4-2 : 

EL NUMERO TOTAL DE MILLAS RECORRIDAS ES 1£ + 19 
NOTA : 


La respuesta coincide con la obtenida anteriormente, lo cual 
significa que no tan sólo recibimos las respuestas en SSN, 


sino que también, podemos utilizarlas en nuestros programas. 
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CAPITULO 5 


A o e a 
AAA 


USO DEL PARENTESIS Y ORDEN EN LAS OPERACIONES 
HO DI AS PE RACIONES 


Los paréntesis juegan un importante papel dentro de la programación 
de computadoras, lo mismo que en las matemáticas ordinarias. Se 
utilizcn aquí de la misma manera, pero existen excepciones impor-' 


tantes, 


1. En BASIC, los paréntesis gueden encerrar las operaciones 
que deben ser efectuadas. Aquellas operaciones que están 
dentro del paréntesis se efectuarán antes que las Sy 


están fuera del paréntesis, 


2. Aquellas opercciones que se encuentren en ed interior de 
los paréntesis (Eto ai, prrámb is dentro de paréntesis) 


serón realizadas primero. 


3. Cuando exista un "empata", en cuanto a qué operaciones de- 
be efectuar primero la computadora después de haber elimi- 
nado los paréntesis, va avenzando a lo largo de la línea 
del programa de izquierda a derecha efectuando las multi- 
plicaciones y divisiones.. 

Después comienza de nuevo por la izquierda y efectúa las 


adiciones y substracciones. 


NOTA : 


Las funciones INT, RND y ABS, se efectúsm antes que la mul- 
! 


tiplicación y división. (No se ha hebleado sún de esto, pero 


lo decimos para completar el apartado). 


4. Un problema que presente la multiplicación : XY no se in- 


terpreta bien por la computadora, si no se coloca el signo 


de multiplicar* . Así pues, debe escribirse .X* Y, 
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NOTAS : 


- Si se desea estar seguro de que se calculen correctamente 
los prcblemas, hay que usar [ ) alrededor de las operaciones 


que se desee efectuar primero. 


- En matemáticas se supone que se debe efectuar la Multiplicación 
y la División primero (de izquierdo a derecha), luego regresar 
para la Adición y la Substracción (de izquierda a derecha). El 


'TRS-2£C utiliza la misma secuencia. 


Vamos a practicar el uso de los paréntesis mediante un ejemplo : 


Para convertir la temperatura Fahrenheit a Celsius (centígrados), 


se utiliza la siguiente relación 


La temperatura Fahrenheit es igual a 32 grados centígrados más 


nueve quintos de la temperatura en grados centigrados. 


F2 = y e E? 4 32 


Supongamos que tenemos una temperatura Celsius de 252. Escribir 


y ejecutar el siguiente programa : 


Ió REM *CONVERSION DE CELSIUS A FAHRENHEIT +* 

2 25 .0. 

38 F=(9/5)*C + 32 

4% PRINT C; "GRADOS CELSIUS ="; F; "GRADOS FAHRENHEIT" 


tu 


La pantalla debe mostrar 
25 GRADOS CELSIUS = 77 GRADOS FAHRENHEIT 


Observar primero, que la línea 40 está formada por una declara- 
ción PRINT seguida de cuatro expresiones distintas, dos varia- 
bles y dos conjuntos de palabras entre comillas llamadas "lite- 


rales” o "condiciones". 
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Segundo : obervar cómo se han colocado los paréntesis en la 
línea 34. Con el 9/5 asegurado dentro del paréntesis, podemos 


multiplicor su cociente por C, y luego agregar 32, 


Ahora se puede eliminar el poréntesis de la línea 3ó y eje- 


cutarlo de nuevo. La respuesta permanece invariable ¿Por qué? 


1. En el primer paso, la computadora comenzó por realizar to- 
das las operaciones que estaban entre paréntesis, en este 
caso, sólo una (9/5). Calculó, pero no imprimió, 1.8. Luego 


multiplicó 1.8 por el valor de C y le agregó 32, 


2. En nuestro siguiente intento, sin los paréntesis, la compu- 
tadora simplemente se movió de izquierda a derecha efectuan- 
do primeramente el problema de la división (9 dividido entre 
5), luego la multiplicación (1.8 por C), después la adición 
(agregar 32). En este primer ejemplo, los paréntesis podían 


haber sido omitidos. 


¿Qué sucede si se cambia + 32 por 32+ y se coloca al comienzo 
.. de la ecuación de la línea 34 ? Ejecutar de nuevo el programa 


sin los paréntesis. 


, 


¿Por qué no combió la respuesta? 

Solución : La ejecución se realiza de izquierda a derecha, pri- 
mero la multiplicación y lo división, luego vuelve y realiza 

la adición y substracción. 

Por este motivo es por lo que el 32 no se agrega al 9 antes de 
dividirse entre 5. ¡MUY IMPORTANTE!. Si hubieran sido sumados, 
habríamos obtenido una respuesta incorrecta. 

EJERCICIO 5-1 : Escribir y ejecutar un programa que convierta 
65% Fahrenheit a Celsius, La regla nos dice que "la temperatura 
en Celsius es igual a nueve quintos de lo que sobre a la tempe- 


ratura Fahrenheit, después de haberle restado 32% ". 


Al 


Co = (F% - 32) | 


EJERCICIO 5-2 : Quitar el primer juego de paréntesis en la 


respuesta del Ejercicio 5-1 y ejecutarlo nuevamente (RUN). 


EJERCICIO 5-3 : Reemplazar el primer juego de paréntesis en 
la línea número 34 del programa y quitar el segundo par de 
paréntesis, luego ejecutarlo (RUN). Observar cómo la respues- 


ta se obtiene correctamente. 


EJERCICIO 5-4 : Poner paréntesis en la siguiente ecuación 
para que sea correcta. Escribir un programa que se pueda com- 
. probar en el TRS-30 


30 -9-8-7-=6=28 


Material Aprendido en el Capítulo 5 


VARIOS: 


5. 


Orden de las 
Operaciones 
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SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 58 


RESPUESTA TIPO AL EJERCICIO 5-1 ; 


16 REM *CONVERSION FAHRENHEIT A CELSIUS* 

28 F =65 

39 C = (F - 32) + (5/9) 

49 PRINT F; "GRADOS FAHRENHEIT ="; C; "GRADOS CELSIUS". 


EJECUCION TIPO PARA EL EJERCICIO 5-1: 


65 GRADOS FAHRENHEIT = 18.3333 GRADOS CELSIUS 


Observar cuidadosamente, cómo se han puesto los paréntesis. 
Por regla general, cuando se tenga duda, se deben usar parén- 
tesis; lo peor que puede suceder en este caso es que la com- 
putadora aminore la velocidad del cólcuio en unos cuantos mi- 


crosegundos. 


EN O E AAA 


RESPUESTA TIPO AL EJERCICIO 5-2 : 


3% C=F- 32 *(5/9) 
EJECUCION TIPO PARA EL EJERCICIO 5-2 ; 


65 GRADOS FAHRENHEIT = 47.222 GRADOS CELSIUS 


CA E A A 


RESPUESTA TIPO AL EJERCICIO 5-3 : 
3 C= (F - 22) * 5/9 
EJECUCION TIPO PARA EL EJERCICIO 5-3 : 


65 GRADOS FAHRENHEIT = 18.3333 GRADOS CELSIUS 
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RESPUESTA TIPO PARA EL EJERCICIO 5-4 ; 
Hay dos respuestas posibles : 38 - (9-8) - (7-6) = 28 
38 - (9 -(8-(7-6)))= 28 
Programa tipo : 


18 A= 38 - (9 - (8 - (7 - 6))) 
28 PRINT A 


O la línea 10 podría ser 


A= 38 - (93) - (7.6) 
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CAPITULO 6 


A A A A e 
A 


DECLARACIONES DE TOMA DE DECISION 


Las declaraciones IF - THEN y GOTO ( SI- ENTONCES) y (VETE A) 
permiten que la computadora tome decisiones. Pero primero vea- 


mos unos cuantos operadores más ... 


Los Operadores de Relación permiten a la Computadoro compa- 


rar un valor con otro. Existen sólomente tres : 


l. Igual, usando el simbolo = 
2. Es mayor que, usando el simbolo > 


3. Es menor que, usando el simbolo < 


Combinando estos tres simbolos, obtenemos tres operadores más : 


4. No es igual a, usando el símbolo < > 


5. Es menor que o igual a, usando el simbolo < 


6. Es mayor que o igual a, usando el simbolo > 


Sumando estos “seis operadores de relación a los cuatro operado- 
res matemáticos que ya conocemos, más las nuevas DECLARACIONES, 
llamados IF-THEN, 4 GO TO, se crea un sistema muy poderoso de 
comparación y cálculo que constituye la médula de todo lo que 


sigue. 


La declaración IF-THEN combinada con los seis operadores de 
relación anteriores, nos da la parte activa de un sistema ló- 
gico. 


Escribir y ejecutar el siguiente progroma : 


3) 


19 A=5 

29 IFA = 5 THEN 58 

38 PRINT " ANO ES IGUAL A 5 " 
49 END 

5g PRINT " A IGUAL A 5" 


En la pantalla debe aparecer : 
A IGUAL A 5, 
Vamos a exominor el progroma línea por línea. 


La línea 19 establece que A tiene un valor de 5. 

La línea 24 es una declaración IF-THEN la cual le dice a la 
computadora que vaya a la linea 58 SI EL VALOR ES EXACTAMENTE 

5, saltando sobre todo aquello que se encuentre entre las líneas 
24 y 59. Como A es igual a 5, la computadora salta a la línea 
50 y hace lo que allí se le indica : imprimir A IGUAL A 5. Las 


líneas 38 y 44 no se usan para nada en este caso. 


Si se combia la línea 14M por : 
ID Az6 

y se ejecuta de nuevo el programa, la pantalla debe mostrar : 
A NO ES IGUAL A 5 


Vamos a analizarlo línea por linea. 


La línea 14 establece que el valor de A es 6. 


La línea 28 prueba el valor de A. Si A es igual a 5 THEN 
(ENTONCES) la computadora va a la linea 58 . Pero "si falla 
la prueba", ésto es, si A NO es igual a 5, la computadora 


prosigue normalmente hacia la línea siguiente, o sea, la línea 


39. 


4( 


La línea 39 indica a la computadora que debe imprimir el hecho 
de que A NO ES IGUAL A 5. No nos indica cual es el valor de A, 
tan sólo que no es igual a 5. La computadora prosigue hacia la 


línea siguiente. 


La línea 44 finaliza la ejecución del programa (END). Sin esta 
declaración que separa las líneas 34 y 58, la computadora se- 
guiría hacia la línea 5% e imprimiría su contenido, el cual, 
obviamente está en contradicción con el contenido de la línea 
34. Este es un ejemplo del uso de la declaración IF-THEN con 


el operador de relación más fundomental, el signo igual. 


Veamos si se puede lograr lo mismo utilizando el signo "NO ES 
IGUAL" ; 


EJERCICIO 6-1 : Escribir de nuevo el programa residente usando 
el signo "no es igual a" en la línea 24 en lugar del signo 
igual, modificando las demás líneas según sea necesario, de 
manera que se obtengan los mismos resultados con el nuevo 


programa y el del ejemplo. 


EJERCICIO 6-2 : Combior la línea 19 para darle a A el valor 6. 
Dejando las otras cuatro lineas del ejercicio como se muestran, 
agregar más lineas al programa (si son necesarias) con el fin 
de averiguar si A es mayor o menor que 5. Ejecutar el progroma 
combiando el valor de Á en la línea 14 para estar seguros de 


que funciona. 


La declaración IF-THEN es lo que se conoce como bifurcación 
CONDICIONAL. El programa se dirigirá a otro lugar del mismo con 
la condición de que pase la prueba que contiene la declara- 
ción. Si falla la prueba, el programa simplemente continúa 
hacia la siguiente línea. Una declaración llamada GOTO es cono 
cida con frecuencia como bifurcación INCONDICIONAL. Si se 
reemplazaran las líneas 44 y 89 con GOTO 99 y se añadiera la 


linea 99 : 


99 END 
47 


sucedería, que en el momento en que se posara por la línea 
49 o por la 89 incondicionalmente, el programa saltará a la 
linea 99, que en este coso es el final de la ejecución. Se 
recomienda practicar estos cambios y ejecutar el programa, 


para comprender mejor la declaración GOTO. 


NOTA : 


No se debe dejar espacios entre G0 y TO (algunas variaciones 


del BASIC lo permiten, el TRS-80 requiere utilizar una sola 


palabra. 


Material Aprendido en el Capítulo 6 


OPERADORES 
DECLARACIONES DE RELACION VARIOS 


1F- THEN Bifurcación Condi- 
: cional 


GOTO : Bifurcación Incon- 


dicional 
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SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 62 


RESPUESTA TIPO PARA EL EJERCICIO 6-1 : 


10 A=5 

29 IF AX) 5 THEN 58 

3% PRINT " A IGUAL A 5" 

48 END 

59 'PRINT "A NO ES IGUAL A 5" 


EJECUCION TIPO PARA EL EJERCICIO 6-1 : 


A IGUAL A 5 


RESPUESTA TIPO PARA EL EJERCICIO 6-2 : 


A=6 

IF A<X>5 THEN 58 

PRINT "- A IGUAL A 5" 

END 

PRINT "A NO ES IGUAL A 5" 
IF ACS THEN 99 

7% PRINT " A ES MAYOR QUE 5" 
89 END f 

98 PRINT "A ES MENOR QUE 5" 


SEAS 


EJECUCION TIPO PARA EL EJERCICIO 6-2 : 


A NO ES IGUAL A 5 
A ES MAYOR QUE 5 


NOTA ; 


Hemos tenido que poner otra declaración END (línea 884) pora 
evitar que el programa pasara a la línea 948 después de impri- 


mir la línea 78 
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CAPITULO 7 


USO DE LA DECLARACION INPUT PARA COMUNICARSE CON EL TRS-80 


Vamos a comenzar este copitulo tecleando el progruoma ejemplo 


del ejercicio 6-2 : 


- Resulta molesto tener que escribir de nuevo la líneo 14, 

cada vez que se desea combior el valor de A. Existe, sin em- 
bargo, una declaración en BASIC, que permite introducir datos 
o la hora de ejecutar el programa. Esta es la declaración 
INPUT, que constituye una manera más rápida y sencilla de lo- 


grar lo mismo. 


Podemos agregar las siguientes líneas al programa residente : 


3 PRINT " EL VALOR QUE DESEO DAR ES" 
1% INPUT A 


Al ejecutar el progroma 
La computadora debe imprimir : 


EL VALOR QUE DESEO DAR ES 


7? 


El signo de interrogación de la pantalla, significa, "estoy 
esperando a que se introduzca el dato". Si se teclea un número, 
debe suceder lo mismo que en el capitulo anterior. Ejecutar 


varios veces el programa para practicar con la declaración INPUT, 


Se le puede dar un toque de elegancia al procedimiento volvien- 


do a escribir lo línea 5 del siguiente modo : 


5 PRINT " EL VALOR QUE DESEO DARLE A A ES"; 


Como puede apreciarse, se le ha añadido un punto y coma al finas 


de la línea. 


5 


En capitulos anteriores, usábamos los puntos y comas en 
las declaraciones PRINT, pero sólamente como medio para 
unir vorias de ellos, de manera que se imprimieran más 
cerca una de otra en la misma línea. En este caso, hemos 
puesto un punto y coma al final, de manera que el signo de 
interrogoción de la línea siguiente se imprimo en la misma 
línea, en lugar de hacerlo debajo. Después de cambiar la 
línea 5 como hemos visto anteriormente y ejecutado el pro- 


grama, nos debe aparecer en la pantalla 


EL VALOR QUE DESEO DARLE A A ES ? 


Observar, que no se puede usar el punto y coma indistintamen- 
te al final de una declaración PRINT. Sólo se hace para unir 
dos líneas, que deben imprimirse. La línea INPUT imprime el 
signo de interrogación. Más tarde veremos cómo pueden unirse 
dos líneas que empiezan por PRINT haciendo uso del punto y 


coma. 


El BASIC del TRS-380, permite una forme todavia más sencilla 


de introducir el valor de A. Es, por tanto, la más usada. 
p 


Si escribimos de nuevo la linea 5 para que diga 
5 INPUT " EL VALOR QUE DESEO DARLE A A ES"; A 


y suprimimos la línea 14, al ejecutar el programa (RUN), ob- 


tendremos los mismos resultados 


Observemos los combios realizados 


1. Sustitución de PRINT por INPUT 
2. Escritura de las dos declaraciones en la misma linea. 
3. Eliminación de la línea extra. 


En programas largos, esta forma de proceder es de gran utili- 
dad. 
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Hasta ahora, todos los programas, han. sido estrictamente di- 
rectos. Se teclea RUN, la computadora ejecuta el programa, im- 
prime los resultados (si existen) y aparece READY, Para repe- 


tir el programa, se tiene que teclear RUN nuevomente. 


¿Existe algún otro método para hacer que la computadora eje- 
cute un programa dos o más veces? Desde luego siempre cabe 
la posibilidad de escribirlo dos veces, pero hay una forma 
mucho más sencilla. Se recomienda intentar averiguarla por 


Ed veda 
uno mismo antes de seguir leyendo. 


La solución a esta pregunta se encuentra en el programa si- 
guiente : (Antes de teclearse se debe oprimir la tecla NEW 


para borrar la memoria). 


1% REM +PROGRAMA MEJORADO PARA LA CONVERSION CELSIUS 
A FAHRENHEIT * 
248 INPUT " CUAL ES LA TEMPERATURA EN GRADOS CELSIUS"; C 
3% F= (9/5)* C + 32 
49 PRINT C; "GRADOS CELSIUS ="; F; "GRADOS FAHRENHEIT". 
5% GOTO 24 
y RUN 


La computadora sigue preguntando datos y respondiendo hasta 
que se la apague. Esta es la gran caracteristica de las compu- 
tadoras : hacer algo una y otra vez. Se pueden modificar al- 


gunos de los programas anteriores para hacerlos auto-repetitivos. 


NOTA : 


No es necesario apagar la computadora pora salir del ciclo, 


basta con apretar la tecla ¡ BREAK | 


A. Moterial Apregdido en el Capítulo 7 
| 


j 
j 


Declaraciones Varios 
AS A 


INPUT ; Final 


f 


y punto y coma de fin 


INPUT utilizado conjunta- 


de línea 
mente con PRINT 


Hemos visto hasta aqui 7 interesantes lecciones. Se recomienda su 


repaso antes de continuar. 


q 


CAPITULO 8 


MODALIDAD DE CALCULADORA 


Antes de continuar explorando nuestra computadora -trabajando 
como computadora debemos observar que también trabaja como 
calculadora. Si se omite el número de la línea antes de ciertas 
instrucciones, la computadora las ejecuta, dando la respuesta 
en la pantalla. Además, trabaja como calculadora, aún cuando 
esté cargada con un programe, realizando las operaciones ó 
prescindiendo de dicho programa. Todo lo que se necesita, para 
estar en la modalidad de calculadora es tener en pantalla el 


apuntador >. 


Ejemplo : ¿Cuánto es 3 por 4? Escribimos 


PRINT 3*4 
+ «. La respuesta aparece en la pantalla : 


12 
Ejemplo : ¿Cuánto es 345 dividido entre 123? 


PRINT— 345/123 
<.. la respuesta es 
2.8488 


Invertir unos minutos elaborando problemas aritméticos rutinarios, 
usando la modalidad de calculadora, Cualquier expresión aritmética, 
que pueda usarse en un programa, puede también evaluerse en la mo- 
dalidad de calculadora. Esto incluye paréntesis y cálculos en ca- 


dena como A* B*C, 


ERROR DE CALCULO EN LA TRS-80 


Efectuar la siguiente operación : 


EA 
o* 


PRINT  (2/3)+* (3/2) 
La respuesta sobre la pantalla es : 


179,99, 0,9)0 


Un número multiplicado por su recíproco se supone que debe 

ser igual a uno (1) exactomente. 

¿Qué es lo que sucede? Hemos descubierto el límite de precisión 
de la computadora. Igual que en las calculadoras, una computa- 


dora no puede ser totalmente precisa. 


Para expresiones aritméticas cortas, la TRS-80 es precisa hasta 
el quinto o sexto lugar decimal. En expresiones más largas y 
más complejos, un pequeñísimo error en el sexto lugar decimal 
puede ser amplificado hasta hacerse importante. Todos los pro- 
gramadores deben acostumbrarse a este tipo de error incorporado 
a la computadora. Discutiremos la forma de poderlos manejar en 


un capitulo posterior. 
MODALIDAD DE CALCULADORA PARA DETECTAR ERRORES 
A IZIA TARA VETELIAR ERRURES 


Supongamos que un programa, no está dando la respuesta que espe- 
rábomos. 

¿Cómo podemos verificar el programa? Una forma es preguntarle 

a la computadora qué sucede, hasta donde ella conozca, acerca 


de las variables usadas en su programa residente, 


Si en un progroma que utiliza como variable la letra X, teclea- 
mos 


PRINT X 


la computadora dirá cual es el valor actual de X. 


E 


NOTA 


Siempre hay algo almacenado en cada celda de memoria de la 
computadora, aún cuando no se haya puesto nada ahí, Intro- 


ducir y ejecutar esta instrucción 


PRINTS 5 OE FAL AL MN O POR ST UV MX Y, Z 


Las respuestas dependen de los últimos valores dados a esas 
variables, aunque sean de programas anteriores. Si se ha 
apoyado la computadora desde la última vez que se usaron algu- 
nos de estas variables, los números almacenados en estas posi- 


ciones deben ser totalmente arbitrarias. 
LA INSTRUCCION DE MEMORIA 


Ya que los programas que se escriben ocupan espacio en la me- 
moria de la computadora, y el tomaño de un programa está limi- 
tado a la cantidad de memoria que se tenga, puede ser importan- 
te saber cuanta memoria se está usando para un programa dado. 


Para averiaguarlo se usa la instrucción de memoria. 


La TRS-80 viene provista de memorias de distintas capacidades, 
el menor de las cuales es 4 K. Esto quiere decir, que hay cerca 
de 440% diferentes posiciones para almacenar y procesar los 
programas (en realidad 4896). (Si se tiene una memoria de 8K, 


las posiciones son 8192; y para 16 K son 16384), 


Para enternder mejor lo que esto significa, se puede escribir 


NEW 
PRINT MEM 
En la pantalla debe aparecer 


3583 


NOTA : 


Si no se obtiene esta respuesta (por ejemplo, un número muy gran- 
de o uno que contenga un signo menos (-), se debe apagar la com- 
putadora durante diez segundos y volver a encender; se teclea 

de nuevo PRINT MEM. Si el TRS-80 tiene más RAM, se debe obtener 


un número mayor, tal como los siguientes 


8 K RAM = 7679 
ló K RAM = 15871 


Sin ningún programa cargado, existen 3583 posiciones de memoria 
disponibles paro ser usadas. La diferencia en espacio de memo- 
ria entre 3583 y 4096 se reserva para procesar programos, gestio- 


nar y "controlar" lo que está haciendo la computadora. 


Vamos a escribir este sencillo programa 
1 A= 25 
Ahora medimos la memoria restante ... 


PRINT MEM 


La respuesta debe ser ... 
3573 


El programa ha tomado, 3583 - 3573 = 18 bytes de espacio de me- 


moria. 
NOTA : 


Vomos a dar una rápida explicoción de lo que es un byte. El 
término byte se emplea en teoria de microprocescdores para de- 
signar un grupo de 8 bits, siendo cada bit una célula de memoria 


que almacena un 1 ó un Y lógicos. 


Byte — Joao sr Yo 


La combinación de unos y ceros lógicos componen, de acuerdo 
con un determinado código, la información que se teclea, 

asi como, el tratamiento interno de dicho información por el 
ordenador. Se recomienda no perder mucho tiempo en analizar 


con detalle esta nota. 


Ahora vamos a descomponer el empleo de los espacios de memoria 


de nuestro ejercicio. 


1. Cada número de línea (sin importar que el número sea 
grande o pequeño), y el espacio que le sigue ocupa 3 
bytes de memoria. El retorno del carro al final de la 
línea ocupa otro byte, aunque no se imprima nada. Asi, 
la utilización de memoria para cualquier línea es siem- 
pre de cuatro bytes, más los bytes que utilice el texto 


impreso. 


2. Cada letra, número o espacio ocupa 1 byte. En nuestro 


programa ocupamos entonces 6 bytes. 


En total el número total de bytes empleados es 4 + 6 =10 


bytes. 


Introducir la siguiente línea adicional, dejar la línea 19 
tal y como está y calcular la cantidad de espacio que sobra 
en la memoria compcrándola con la obtenida mediante la ins- 


trucción PRINT MEM, 


2% PRINT "ESTE EJEMPLO ES PARA MEDIR EL USO DE LA MEMORIA”, 


¿Cuánto espacio queda en la memoria? 


Respuesta : La linea 18 toma 18 bytes. La linea 28 toma 
cuatro bytes por el "servicio" más 48 caracteres = 52 bytes. 


52 + 18 = 62 bytes. 3583 - 62 = 3521 bytes. 


ES 


PRINT MEM 


para ver si es correcto el resultado. 


Obviamente los programas cortos de aprendizaje que hemos estado 
escribiendo hasta ahora, no necesitan mucho espacio de memoria. 
Esto combia rápidamente, sin embargo, a medida que nos adentramos 
en una progremación más sofisticada, es interesante escribir 
PRINT MEM cuando se completa un programe, porque desarrolla el 


sentido de su tomaño. 
OTRO MENSAJZ DE ERROR 


Hasta ahora hemos visto dos tipos de mensajes de error : 
WHAT? - No entiendo que es lo que se quiere. 
HOW?  - Entiendo lo que se me está diciendo pero no puedo 
hacerlo. 
A continuación vomos a ver el tercer y último mensaje de error 


, 


que viene indicado por la palabra 
SORRY 


Significa "Lo siento se han acabado las posiciones de Nora y 
se debe recortar el tamaño del programa o comprar memoria adicio- 
nai”. 

Con algo de práctica se puede predecir cuánta menoria ocupa un 
programa dado. Todos las lecciones y programas que se incluyen en 
el sistema TRS-80 NIVEL 1 entran en los 4 K de memoria disponi- 


bles. 


An 


Material Aprendido en el Capitulo 8 A A 


Instrucciones Varios 
PRINT MEM Modalidad de 
Calculadora 


Memoria 


Byte 


SORRY 


CAPITULO 9 


USO DEL CASETTE DE CINTA 


Pronto se escribirán programas largos y potentes. Resulta en 
extremo dificil y pesado editarlos sin errores y resultaría 
inoperante tener que realizar todo este trabajo, cada vez que 
se necesitara ejecutarlos. Esto último explica la necesidad del 


uso del casette de cinta. 


El TRS-80 posee una tarjeta adaptadora (interface) para graba- 
dora de cinta pudiéndose grabar y almacenar en ésta cualquier 
programa en cintas casettes de alta calidad. Los "4K" de la me- 
moria pueden ser "almacenados" en la cinta procedentes de la 
memoria de la computadora o cargados” de la cinta a la memoria 

en tres minutos. La mayoria de programas son más cortos y requie- 
ren aún menos tiempo. La gran caracteristica del uso del casette 
de cinta es que permite formar una biblioteca de programas propios 
para la computadora. De este modo se pueden intercambiar pro- 


gramas con otros usuarios de la TRS-830. 


Al comienzo de este manual, se habló del procedimiento de conexión 
y uso de la grabadora. En este capítulo, se van a explicar dete- 
nidamente los pasos para el almacenomiento ( en la casette) y 


carga (en la memoria de la computadora) de programas. 
. GRABACION 


Sólo es necesario un poco de práctica 


1. Localizar la grabadora, el cable de conexión y el casette 


de cinta para grabociones de computadora Radio Shack, 


él 


2. Conectar el cable corto entre el borne TAPE localizado en 


la parte posterior del teclado de la TRS-80 y lo grabadora 


de 


Pe 


Bl 
e 


casette ; 


El 
de 


conector gris de ciovija delgada, va al borne REM 
la grabadora. 
conector gris de clavija más gruesa, va al borne AUX. 


conector negro va al borne EAR, 


3. Conectar la grabadora a la red (6 ponerle baterías), 


4. Editar cualquier programa en la computadora, preferentemente 


uno que tenga varias líneas. Ejecutarlo (RUN) para asegurar- 


se de que está correctamente escrito. 


5. Cargar el casette de cinta y oprimir los botones PLAY y 


RECORD al mismo tiempo hasta que queden fijos. 


6. Almacenar el programa en la cinta escribiendo la instrucción 


CSAVE (que significa "guerdar en la casette") 


De esta manera el motor de la grabadora comienza a funcionar y 


se graba el programa en la cinta, 


Cuando aparece en la pantalla 


READY 


y ¿e 


entonces se para el motor, el programa ha quedado grabado en 


la cinta. Además se encuentra aún en lo memoria de la computa- 


dora. Tan sólo ha sido "copiado". 


NOTA : 


Se recomienda colocar el "conector falso" dentro del borne MIC 


(esto evita que se introduzcan ruidos por el micrófono interno 


cuando se graban programas). 


y 
A. 


A 


. Si se desea, se puede efectuar unc pequeña prueba : 
Desconectar el pequeño conector del' borne REM de la grabadora 
y rebobinar la cinta. Si se reproduce la cinta, desenchufan- 
do el conector negro del borne EAR, se puede oir el sonido de 


la información digital. 
CARGA 


El proceso inverso al anterior, o sea, la carga (copia) del pro- 


groma de la cirta a la computadora, es sencillo 


l. Asegurarse de que la cinta se rebobina completamente, 
(hasta el comienzo del programa), y que los conectores 


están en su lugar. 


2. Oprimir el botón PLAY hasta que quede fijo. Poner el 


control de volumen entre 7-8. 
3. Tecleor NEW para borrar cualquier programa existente. 


4. Teclear la instrucción 
CLOAD (que significa "cargar desde el casette”) 


El motor de la grabadora comienza a funcionar y la in- 
formación fluye de la cinta a la memoria de la computado- 


ra a razón de oproximadcmente 1246 bytes por minuto. 


Tan pronto como la computadora detecta la información, 
aparece un asterisco ( *) en la pantalla; luego a medi- 
da que ccepta cada línea de. información, un segundo (+ ) 


asterisco parpadea. 
Cuando aparezca 


READY 
: ql 


el programa habrá sido cargado y el motor de la arabadora 


se parará. 


E7 


5. Se puede ejecutar el programa, para comprobar que la trans- 
ferencia de datos ha sido correcta. En el caso poco frecuente 
de que ésto no sucediera, hoy que repetir los pasos anterio- 
res, asegurándose de que todos los cables están conectados 
correctomente, el volumen colocado entre 7-8 y que las cabe- 
zos de la grabadora estén limpias. Puede oírse la cinta para 


comprobar. 


NOTA : 


Si la grabadora no para, cbrir la puertecilla situada en la 
parte posterior izquierda del teclado y oprimir el botón de 
recjuste. Esto devuelve el control al teclado, el cual está 


en esos momentos en la computadora bajo la modalidad CLOAD ó 


CSAVE. 
INFORMACION SOBRE LA CINTA 


Para minimizar la posibilidad de encontrar un "punto blando" en 
la cinta, en el oxido, los operadores con experiencia realizan 
un "doble almacenado" al copiar de la computadora a la cinta. 
Esto quiere decir, que se debe copiar dos veces el programa 
sobre la misma cinta - una grabación después de otra. En vacia- 
dos largos, uno se realiza en una dirección y el otro en la otra 
dirección. Para mayor seguridad, especialmente en programas im- 
portantes se acostumbra grabarlos en más de una cinta. Los erro- 
res son poco frecuentes, pero la experiencia es, después de to- 


do, la mejor consejera. 
La cinta de computadora Radio Shack es de calidad uniforme , es- 


cogida especialmente por sus caracteristicas de baja distorsión. 


Si tan sólo se pierde un pequeño bit se pierde el programa entero. 
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Esta cinta viene enrollada en carretes más cortos que lo normal, 
siendo standard el C-10 que grceba cinco minutos en cada direc- 
ción; mucho más que suficiente para la mayoria de los programas. 
La memoria completa de 4K puede ser grabada sobre un lado del 
C-10, quedando el otro lado dispecnible pora otro programa sin 


necesidad de tener que hacer lergos rebobinados. 


Los profesionales con experiencia en computadoras han encontrado 
que es mejor usar un casette separado (o por lo menos en lado 
separado) para cada progroma, en lugar de trotar de buscar a lo 


largo de cintcs largas el progroma deseado. 


Cuando no se usa la Grabadora para cargar o grabar, no hay que 


dejar oprimidos las teclos RECORD y PLAY (oprimir STOP). 


No se deben exponer las cintas grabadas a campos magnéticos. 


Hay que evitar ponerlas cerca de las tomas de corriente. 


No se debe intentar grabar de nuevo sobre una cinta grabada on- 
teriormente, ya que aún cuando el nuevo proceso de grabación 
borra el progroma viejo, puede quedar suficiente información 
para confundir la nueva grabación. Si se quiere usor la misma 
cinta una segunda o tercera vez, hay que utilizar un borrador 
de cintos de alta calidad para asegurarse de que la información 


vieja ha sido totalmente borrada. 


Si se quiere guardar permanentemente un programa en cinta, debe 
romperse el protector de borrado del casette (véase el Manual 
de la Grabadora). Cuando los protectores hayan sido rotos, no 
se podrá oprimir la tecla RECORD de la grabadora (esto evitará 


IN 


borrar accidentalmente la cinta). 


Eb 


RETROAL IMENTACION A TIERRA 

En algunas grabadoras, si se dejan conectados los bornes del au- 

difono y el AUX al mismo tiempo, cuando se hace una grabación, se 

termina con un pequeño zumbido dentro del programa. Esto es debido 

a una retroalimentación a tierra entre la grabadora y los cables. 

Para evitar problemas de retroalimentación a tierra, hay que man- 
1 


tener conectado sólamente el cudifono ó el auxiliar, PERO NO 


AMBOS. 
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VARIOS 


CLOAD 


CSAVE 


"almacenado" 


"cargado" 


** (indicador del 


cargado del progra 


y 
ma) 


CAPITULO 10 


DECLARACIONES DE BUCLES O ITERACIONES DE PROGRAMACION 
MASONES DE PROGRAMACION 


La principal diferencia entre una computadora y una calculadora 
es la habilidad de la computadora para hacer una misma cose una 
y otra vez un número limitado de veces, a una velocidad muy al- 


ta. 


La iteración FOR-NEXT es de gran importancia paro el trabajo de 
la computadora y se usará muy a menudo, de ahora en adelante, en 
todas las áreas de la programación. Su simplicidad y flexibilidad 


son la razón de su efectividad. 


Escribir y ejecutar el siguiente programa 


18 PRINT "AUXILIO... MI COMPUTADORA SE HA VUELTO LOCA?" 
20 GOTO 19 


Como puede apreciarse, la computadora está imprimiendo constante- 
mente la línea 18 y continúa indefinidamente si no se le dice que 
pidio de 


pare, (oprimir la tecla ' BREAK D. 
E ER 


Esto que hemos creado se lloma "iteroción sin fin". Como se recor- 
dará, en nuestros programas anteriores se usaba la declaración 
GOTO, para ejecutar un programa, introduciendo distintos datos de 
entrada. La línea 24 de nuestro programa, es una declaración GOTO 
incondicional, la cual es la causante de que la computadora vaya 
hacia adelante y hacia atrás, entre las líneos 18 y 28 continua 
mente, si no se la detiene. Esta idea va a resultar de gran utili- 


dad. 
Vemos a modificar y ejecutar el programa de la siguiente forma 
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3 "FOR N= 1 TO 5 

19 PRINT "AUXILIO... MI COMPUTADORA SE HA VUELTO LOCA!" 
28 NEXT N 

38 PRINT "NO... ESTA BAJO CONTROL". 


Resultado y explicación 


La líneo 18 aparece 5 veces en pantalla y a continuación se ha 
escrito la línea 30. La iteración FOR NEXT de las líneas 8 y 29 
ha hecho posible que la computadora formara un ciclo a través de 
los líneos 8, 18 y 20 5 veces y después ha continuado con el 
resto del programa. Cada vez que la computadora llega a la línea 
20, encuentra "NEXT N", lo que permite que el valor de N se in- 
cremente en 1, saltando nuevamente a la declaración FOR N que 
fué la que inició la iteración. La declaración NEXT es incondi- 
cional, mientras N sea menor que 5 debido a que la linea 8 dice 


FOR-N =:1 70.5. 


Después de haber pasado por quinta vez por la iteración, se rom- 
pe el ciclo y la ejecución del programa continúa. La declaración 
FOR-NEXT ha controlado de esta forma la iteración sin fin ante- 


EXOr 
LA FUNCION "STEP" 


En ocasiones es conveniente incrementar el ciclo FOR-=NEXT en 
algún valor diferente a uno. La función STEP lo permite. Cam- 


biar la línea 8 a 


8 FOR N = 1 TO 5 STEP 2 
. y (RUN). 


La línea 14 aparece en pantalia sólamente tres veces (cuando 
N = 1, N= 3 y N= 5). En la primero pasada (con N= 1) al llegar 


a NEXT N, se incremente el valor de N en dos y asi se obtiene 


N= 3 dando origen o 290, j 
9 la 2 pasada; al llegar nuevamente «a 
Po 


NEXT N, se vuelve a incrementar en dos el valor de N pasando 


a valer 3 en la tercera pasada. 


Las iteraciones FOR-NEXT, pueden ser incrementadas en cualquier 
número entero, incluso números negativos. El motivo por el cual 
pueda ser interesante el incremento de números negativos, se 
verá más adelante. Mientras tanta, cambiemos la línea 8 como 


sigue 


8 FOR N = 5.701 STEP -1 
y RUN. 


Cinco pasadas del ciclo incrementando hacia abajo de 5 a 1 
es exactamente lo mismo que incrementar hacio arriba de 1 


a 5. La línea 18 se imprime también cinco veces. 
MODIFICACIONES DE LA ITERACION FOR-NEXT 


En el supuesto de que deseemos imprimir las líneas 18 y 30 
cinco veces, en forma alternado, ¿cómo habremos de modificar 


el programa a que venimos haciendo referencia para lograrlo? 


Se recomienda intentar hallar la solución combiando de posi- 


ción la línea NEXT N. 


En efecto, si la línea 2f se mueve a la 44 se obtiene ; 


AUXILIO. ..MI COMPUTADORA SE HA VUELTO LOCA! 
NO ... ESTA BAJO CONTROL. 
AUXILIO...MI COMPUTADORA SE HA VUELTO LOCA! 


NO. ..ESTA BAJO CONTROL. 


... €etc., tres veces más. 


¿Cómo modificar el programa para que la línea 1% se imprima 


5 veces y la 38 3 veces? 


El nuevo programa deberá ser : 


8 FORN= 1 TO 5 
1% PRINT "AUXILIO...MI COMPUTADORA SE HA VUELTO LOCA! 
2% NEXT ON 
25 FORM=1T03 
3% PRINT "NO... ESTA BAJO CONTROL”. 
49 NEXT M 


Este progroma consta de dos iterociones controladas. La primera 
efectúa una operación 3 veces y una vez finalizada, la segunda 
efectúa otra operación 3 veces. Puede observarse el uso de le- 
tras diferentes (N yM) para cada iteración. Sin embargo, se 
podía haber usado la misma debido a que las iteraciones son 


completamente independientes. 


El uso de la declaración FOR-NEXT, no constituye una novedad 
fundamental en la filosofía de programación que se ha desarro- 
llado hasta ahora, pero sí es una forma rápida y sencilla de 
ejecutar operaciones repetidas. Para demostrar esto Último y 
de manera que sirva como repaso, se puede pensar en editar un 
progroma que haga lo mismo que el del ejercicio anterior, pero 


sin usar la iteroción FOR-NEXT. 


8 N=1 
10 PRINT "AUXILIO MI COMPUTADORA SE HA VUELTO LOCA!" 
LSNi= NDA 1 


20 IF NCS THEN 19 
38 PRINT "NO ESTA BAJO CONTROL" 
48 IF. N<8 THEN 15 


Explicación 


La línea 8 inicioliza el valor de N, ( en nuestro caso vale 1 
pero podia haber tomado cualquier otro valor). Pasando por la 
línea 1 que imprime el texto entre comilias, se llega a la 
línea 15 que incrementa el valor de N en una unidad. La línea 
26, manda el programa a la línea 14 si el valor de N es menor 
que 6 con lo cual se establecen las 5 operaciones de escritura. 
Cuando N es igual a 6 se salta a la líneo 3/6 que imprime el 
texto y se llega a la 48 que manda el programa e la 15 aumen- 
tando el valor de N en una unidad más. Esto permite realizar 


los 3 ciclos de escritura del segundo texto, ya que, cuando N 


alcanza el valor 8 el progrcma finaliza. 


Hay una idea que sobresale del conjunto de lo explicado últi- 
mamente y es la posibilidad de progremación diferente para un 
problema dado. El objetivo del buen programador consiste por 
tanto, en desarrollar el programe más rapido y sencillo para 
lo cual es fundamental acostumbrarse a los "buenos hábitos de 


programación", que se van reseñando a lo largo del manual. 


También podemos realizar el erograma decrementando el velor 
de N. Realizor los cambios oportunos en el programa residente 


para que la línea 15 contenga : 


15 N=M- 2 


SOLUCION : 


8 N 
20 IF N>3 THEN 18 
448 IF N>1 THEN 15 


8 


ti 


El siguiente ejemplo es una a licación más de la iteración 
3 jemp p 


FOR-=NEXT. 
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Supongamos que queremos imprimir una tabla que muestre cómo 
el tiempo que torda en volar de Boston a San Diego, varía de 
acuerdo con la velocidad a la cual estamos viajando. Recor= 
demos la fórmula D = V=“T. Imprimamos el tiempo de vuelo re- 
querido para cada velocidad entre 248 KPH y 1828 KPH con in- 


crementos de 22% KPH. El programa es el siguiente : 


19 REM" TABLA DE VUELO DEL TIEMPO EN FUNCION DE LA VELO- 


CIDAD 

28 CLS 

3Ó D= 3000 

48 PRINT " BOSTON A SAN DIEGO " 

58 PRINT 

6% PRINT "VELOCIDAD (KPH)", "TIEMPO (HORAS)", "DISTANCIA 
(KILOMETROS)". 

70 PRINT 

80 FOR R = 2990 TO 108% STEP 188 

9% T=D/V 

188 PRINT V,T,D, 

118 NEXT V 


Introducir el progromo y ejecutarlo (RUN). 


En realidad se está resolviendo el problema del capitulo 3 
nueve veces seguidas para diferentes valores, e imprimiendo 


los resultados. La pantalla debe verse como sigue : 


BOSTON A SAN DIEGO 


VELOCIDAD (KPH) TIEMPO (HORAS!) DISTANCIA (KMS) 
209 15 3DH 
300 19 3008 
45 2,5 3000 
500 ó 3000 
5% 5 30H 


ha 
A) 


VELOCIDAD (KPH> TIEMPO (HORAS) DISTANCIA (KMTROS 


780 4.28571 3006 
80H 3.75 3000 
900 3. 33333 3000 
1000 3 3600 


Análisis del programa 


La declaración REM identifica el programa para usos DOS- 


Tteriores, 


La lineo 284 usa la declaración CLS para borrar la oanta- 
lla y tener así un lugar limpio pora escribir de una ma- 
nera descendente. Puede ejecutarse el programa sin esta 


linea para ver lo que sucede. 


La línea 39 inicioliza el valor de D. D permanece con su 


valor inicial. 


La línea 44 imprime el título de la tabla a doble espacio 
p p 


pera que sec más legible. 


Las lineas 58 y 78 usan PRINT vacios para dejar espacios 


en la tabla. 


La línea 6% imprime los títulos de las colummas de la ta- 
bla, y utiliza el espaciamiento cutomático de zomos para 


colocar esos títulos (la coma), 


La línea 8% establece la iteración FOR-NEXT además de su 
incremento (STEP); ó¿ dicho más claramente, inicializa la 
velocidad (V) en 208 KPH, y pasa a través de la iteración 
con valores de V incrementados en 126 KPH hasta llegar 
al valor final de 1888 KPH. La línec 118 constituye la 


otra mitad de la iteración. 


La línea 9% contiene la fórmula que calcula la respuesta. 


.) 


ms 
PS 


9. La línea 140 imprime los tres valores. Están localizados 
bajo sus titulos por el espaciamiento automático de zo- 


nos (las comas). 


10. “Las líneas 98 y 160 deben estar un poco más espaciadas 
del resto del texto del programa. 
Esta es una técnica de programación característica de 
una iteración (cíclica), la cual hace que la lectura 
y la búsqueda de errores sean más sencillas. Se utili- 
zarán con bastante frecuencia a medida que avancemos. 
Hay que tratar de adoptar buenas prácticas de programa- 
ción como ésta al hacer los ejercicios. Este espacia- 
miento ocupa un poco más de sitio en la memoria, y en 
programas largos al liegar a su forma final muchas ve- 


ces se omite. 


Se recomienda almacenar este programa en la cinta de la ca- 


sette, porque se usará en el capitulo siguiente. 


NOTA : 


CLS en un programa efectúa la misma función que la tecla 


CLEAR [del teclado. (Pero no se puede utilizar la tecla 


| CLEAR | como parte de un programa). 


Las iterociones encadenadas que se han venido explicando re- 


ciben el nombre de iteraciones-DO. 
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FOR-NEXT Incremento 
6lÉsS Disminución 
STEP Inicializa 


| | 

tecla*! BREAK | 

. 1 

Tecla! CLEAR | 

07 E. 0 
Presentación en forma 


"descendente" 


Presentación en forma 


¡ 
INSTRUCCIONES DECLARACIONES VARIOS 
| de lasto" 


"ITERACION-DO" 


CAPITULO 11 


CONTROL EN LA EJECUCION DE PROGRAMAS 


Carguemos el progrome que se grabó en el capitulo 10. 

Vamos a modificarlo y a ejecutarlo de modo que la veloci- 
dad y el tiempo se calculen e impriman cada 54 KPH en lugar 
de coda 148 KPH correspondientes al programa inicial. 


Es decir : 


88 FOR R = 28% TO 19098 STEP 59 


Resultado : La impresión es tan rápida que nos es imposible 
leerla, y para cuando se detiene, la parte de arriba ya no 


aparece en pantalla. 


Existen varias soluciones 


1. Si se oprime cualquiera de las teclas, se detendrá la 
ejecución del programa. Ejecutemos varias veces el pro- 
grama oprimiendo diferentes teclas (y la barra de espa- 
cios), para observar qué sucede. 

Ejecutémoslo una vez más utilizando esta vez la tecla ! 
(flecha ascendente), para paralizar la emisión en pan- 
talla. Con esta tecla, se detiene y reinicia limpiamen- 


te. Esta es la que se debe utilizar para detener la emi- 


sión en pantalla temporalmente. 


2. Tombién se puede colocar "una pausa" dentro del programa. 
La pantalla se llenará, se detendrá un momento y auto- 


máticamente proseguird. 


NOTAS : 


- Como puede verse, el hecho de oprimir una tecla no sólo 


detiene la ejecución sino que además introduce el propio 


número o letra. E 


- Existe otra tecla que se pue de oprimir pero no es muy 


H ' 
útil. La tecla | BREAK | , que es aún más desordenada. 
Para reiniciar después de oprimir . BREAK | se oprime RUN 


in ia 
o CONT, 


ITERACION CRONOMETRADA 


Para entender qué es una iteración cronometrada vamos a dejar 
el programa " de tiempo de vuelo" en la computadora, y a 


introducir un segundo programa. 
Escribir y ejecutar : 


END 

PRINT "NO SE VAYAN" 

FOR X = 1 TO 566 

NEXT X 

PRINT — "PROGRAMA CRONOMETRO TERMINADO". 


0 0. NS 


La línea 9 se coloca para separar los progromas. 

Si se ha efectuado todo correctamente, la línea 5 debe haber 
tardado en aparecer, unos lO segundos. Como puede observarse, 
este progroma se basa en el tiempo que tarda el ordenador en 


efectuar iteraciones FOR-NEXT, (aproximadamente | segundo cada 


500) . 


Combiar el programa para crear un retardo de 30 segundos y 


compararlo con el que nos dé el reloj. 


Respuesta : 2 FOR X= 1 TO 15806 


EJERCICIO 11-1 : Usando el espacio que existe entre las línecs 
l a 8, diseñar un programa que pregunte cuantos segundos de 
retardo se desean, que permita introducir un número y que 
luego ejecute el retardo y al terminarlo imprima cuéntos se- 


gundos ha tardado. La respuesta Se encuentra al final del capí- 


tulo. ve: 


MANEJO DEL LISTADO DE PROGRAMAS LARGOS 


Cuando se efectúa un listado en problemas largos, (como los 
dos que tenemos en nuestra computadora), aparece el proble- 
ma de que no se puede ver todo el progroma. 

La solución más sencilla en nuestro caso, para ver el resto 
del programa, está en pulsar sucesivamente la tecla EA 1 
cada vez que se oprime esta tecla, el listado asciende una 
línea y por tanto, aparece una nueva en la parte inferior 


de la pantalla. 


Otra solución es usar una versión de LIST un poco diferente. 
LIST H4AA4», donde 44 44 4 representa la línea de co- 


mienzo de listado. 


Escribamos para nuestro programa : 
LIST 58 


La computadora da un listado que empieza con la línea 54 
y llena la pantalla con 16 líneas o si el programa es corto, 


imprime hasta el final. 


LIST 4 4 4 y la ? (flecha ascendente), pueden ser usadas 
para localizar cualquier parte que se desee de un programa 
muy largo. 

Una vez más, debe estar presente el apuntador si se desea 
continuar o hacer cualquier otra cosa. 

Aparte del hecho de utilizar una [o ambas) de las técnicos 
anteriores para obtener el final del listado (LIST) y en- 
contrar el apuntador, existe una manera más rápida, una 


vez que se haya encontrado lo que se deseaba en el listado. 


1 1 
Bosta, para ello, con pulsar la tecla | ENTER ¡una o dos 
¡AS 


veces. 


> 
e 


EJECUCION DE UN PROGRAMA EN PRESENCIA DE VARIOS 
€ NASA DE VARIOS 


Cuando se tienen en la computadora dos o más programas se- 
guidos (como en el coso de este capitulo), es posible la 
ejecución de cualquiera de ellos, en el momento que se desee, 
En nuestro ejemplo, bestería con teclear RUN para ejecutor 
el primero. En combio si se quiere ejecutar el segundo, hay 
que teclear RUN 4£ ¿£ 44, incluyendo en " +44 24" el nú- 
mero de línea de comienzo del programa (en nuestro caso 16). 
Como se podía esperar, el procedimiento es similar al del 


caso anterior del listado LIST H HA. 
EJECUCION CONTROLADA DEL PROGRAMA 
AN ON RULADA DEL PROGRAMA 


Vamos a introducir ahora una iteración controlada, dentro de 
nuestro programa de los vuelos Boston-San Diego. Para ello, 
primero borraremos las líneas 2,3,4,5,6,7 y 9, escribiendo 


pres 
cada uno de los números, seguidos por un [ ENTER ' 


Una manera de detener el paso rópido de la información en 


nuestra tabla, es introducir un STOP. Escribamos 


85 IF R = 688 STOP 
y RUN 


Sabemos que R va a alcanzar el valor 60% hacia la mitod de 
la tablo. Observemos cómo la tabla se detiene en 68%, des- 
cendiendo a la línea 85. La pantalla debe mostrar la primera 


parte de la tabla y ' BREAK ¡AT 4 


Esto indica que el programa se ha detenido en la línea 85. 


Paro que el programa continúe, se teclea : 
CONT 


y automáticamente se imprime el resto de la tabla. 
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El siguiente paso que vamos a dar, es construir un retar- 

do dentro del progrcma para que no haya necesidad de de- 

tener totalmente la ejecución del mismo. Es 
? 


escribiendo : 


... Y RUN 


Mientras R no sea igual a 608 el programa se salta la itera- 
ción de retardo de las líneas 87 y 88; pero cuando alcanza 


1 
j 


este valor, el programa posa a la linea siguiente (87) y 
la iteración retarda la ejecución en un segundo aproximada- 


mente 


EJERCICIO 11-2 : Modificar el programa residente de manera 
que (KPH) aparezca debajo de VELOCIDAD, (HORAS) aparezca 
debajo de TIEMPO y (KILOMETROS) aparezca debajo de DISTAN- 
CIA. 


EJERCICIO 11-3 : Diseñor, escribir y ejecutar un programa 
que calcule e imprima los ingresos anuales, mensuales, se- 
manales y diarios bosados en una semana de: cuarenta horas, 
un mes de 1/12 de año y un año de 52 semanas. Hacer esto, 
para ingresos entre S5BB%Í y 525000 en incrementos de S1PM4. 
Documentar el progromo con declaraciones REM cuando sea 


necesario pora expli ar las ecucciones que se vayan a cregr 


EJERCICIO 11-4 : Diseñar, escribir y ejecutar un programa 


que diga cuántos dias se tendrá que trabajar, empezando poz 


una peseta al día, si el salario se duplica cada día, de manera 


que se sepa qué dia se gunará por lo menos un millón de pe- 


setas. 


Inclúyanse columnas que muestren el día (su número), el sa- 
lario diario, y el ingreso total en la fecha. Hacer que el 
programa se detenga después de imprimir el día que el salario 


diario sea de un millón de pesetas ó más. 


Una de las características de la computadora es que permite 
llegar a la solución de un problema por el método del "tanteo", 
debido a su gron rapidez y agilidad de cálculo. Los siguien- 
tes ejercicios constituyen una viva muestra de lo que acaba- 


mos de decir, 


EJERCICIO 11-5 : Se tiene un rollo de mil metros de largo de 


alambre y se quiere cercar con él un pastizal rectangular. 


Usando todo el alambre, determinar qué longitud y anchura 
q 

permitirán encerrar el máximo número de metros cuadrados. 

Dejar que la computadora intente varios valores para L y W 


e imprima el área cercada pare cada par de valores L y Y. 


La fórmula para el Area = Longitud por Ancho 


óÓA =L*W 


EJERCICIO 11-6 : Con los valores dados en la figura diseñor,: 
escribir y ejecutar un progroma que tome valores de resisten- 
cia que van desde 1 a 24 ohms, en incrementos de ]1 ohm, e 


imprima las respuestas con los datos siguientes : 


1. Valor de la resistencia de carga ( de 1 a 24 ohms). 

2. Lo potencia perdida en la fuente (el cuadrado de la 
corriente del circuito, multiplicado por la resisten- 
cia de la fuente) e +18. 

3. La potencia suministrada a la caraa (el cundrado de 
lo corriente del circuito multiplicada por la resis- 


' e 
tencia de carga) 1 a, 


sb y 


NOTA : 


La corriente del circuito se encuentra dividiendo el 


voltaje de la fuente (128 voltios) por la resistencia 


total del circuito (resistencia de carga + 14 ohms de 


resistencia de la fuente). Todo está de acuerdo con la 


ley de Ohm, V = 1%* R), y la ley de WATT, P= I* V). 


ORDENES 


LIST 4 44 
RIN. 4 44 


CONT 


Material Aprendido en el Caitulo 11 


DECLARACIONES 


STOP 


VARIOS 


ITERACION 
CRONOMETRADA 


Flecha ascendente | 


Método de tanteo 


SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 11 
A ANDE 14 


RESPUESTA TIPO PARA EL EJERCICO 11-1 : 


2 INPUT "CUANTOS SEGUNDOS DE RETRASO DESEA?"; S 

3 P = 500 

Der 

5 FOR X-= 1 TOD 

6 NEXT X 

7 PRINT "EL RETRASO HA TERMINADO. HA SIDO DE";S; "SEGUNDOS". 


Explicación : 

La línea 2 usa la declaración INPUT pora obtener el retraso 
deseado, S, en segundos. 

La línea 3 define P, número de pasadas requeridas para un 
retraso de un segundo. 

La línea 4 multiplica el retraso para un segundo por el núme- 
ro de segundos deseados, y le llama a ese producto D. 

La línea 5 inicia la iteración FOR=NEXT de 1 a lo que se re- 
quiera. 

La línea 6 es la otra mitad de la iteración. 

La línea 7 indica que el retraso se ha acabado, e imprime S, 


el número de segundos. 


RESPUESTA TIPO PARA EL EJERCICIO 11-2 : 


6% PRINT "VELOCIDAD", "TIEMPO", "DISTANCIA". 
65 PRINT " (KPH)", "(HORAS)", "(KILOMETROS)" 


Si se han tenido problemas en la resolución de este ejercicio, 


deben repasarse los capítulos anteriores. 
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5 0É5 
10 PRINT " +. + TABLA DE SALARIOS EE O 
20 PRINT 
34 PRINT " AÑO ","MES", "SEMANA", "DIA" 
4% PRINT 


50 FOR Y = 5008 TO 25808 STEP 1008 
55 REM" CONVIERTA EL INGRESO ANUAL EN MENSUAL* 


60. Mo Y/12 
65 REM *CONVIERTA EL INGRESO ANUAL EN SEMANAL* 
7D W = 1/52 
73 REM *CONVIERTA EL INGRESO SEMANAL EN DIARIO * 
88 D= w/5 
199 PRINT Y,M,W,D 
119 NEXT Y 
NOTA : 


La función FOR-NEXT-STEP está limitada a los números entre 
-32767 y +32767 (inclusive). Si intentamos que la máquina 
trabaje fuera de estos múrgenes, obtendremos el mensaje 

HOW? 

Tombién se produce otro error menos obvio si todos sus núme- 
ros están dentro de la goma pero la suma del limite superior 
y la del tamaño del paso supera 32767, Por ejemplo, si se 


intenta ejecutor :; 
5D FOR Y = 5690 TO 327448 STEP 100% 
en el Progroma de Tabla de Salarios. 


La manera de salir de este problema es usar límites superior 
e inferior y tamaño de paso más pequeños, y luego usar el 
factor de escala en la iteración pora obtener el número más 


grande, Por ejemplo : 


l 


EJECUCION TIPO PARA | 


AÑO 

5000 
00)0) 
7000 


RESPUES 


NR 
A YA 


EJECUCI 


DI 
4H 


SD FOR Z = 508 TO 3278 STEP 190 
5 FAA 
10 NEXT 2 


MES SEMANA 
416.667 96.1538 
500 115.385 
583.3333 134.615 

Ei, 


TA TIPO 


PARA EL EJERCICIO 11-4 ; 


R=1 
D=1 

T=1 

EL5 

PRINT — "DIA", "DIARIO", "TOTAL" 
PRINT  "4£ ", "RAZON", "GANADO" 
PRINT 

PIRNT D,R,T, 

IF R> 1E6 END 

R=R*2 

DOS El 

1TATAB 

GOTO 7Ú 


ON TIPO PARA EL EJERCICIO 1l1-4 ; 


A DIARIO 
RAZON 


1 .DOBOODE-D2 


DIA 
19.2308 
23.6769 
2649231 


TOTAL 
GANADO 


1. POBÍODE -B2 


DIA DIARIO TOTAL 


pa RAZON GANADO 
Pa 2E-B2 3E-62 
3 4E-H2 7E-42 
4 SE-B2 .15 
5 .16 «31 
6 Me .63 
ENE, 


RESPUESTA TIPO PARA EL EJERCICIO 11-5 : 


1 REM * OBTENCION DEL AREA MAXIMA * 


5 CLS 

10 PRINT "CERCA DE ALAMBRE”, "LONGITUD", "ANCHURA", "AREA" 
2% PRINT "(METROS)", "(METROS)", "(METROS)", "(METROS CUAD. )" 
3D F = 1000 


46 FOR L = Y TO 5B0 STEP 58 
SÓ W= (F-2*1L)/2 

6D A = L* W 

79D PRINT F,L,W,A 

88 NEXT L 

9% END 


EJECUCION TIPO PARA EL EJERCICIO 11-5 : 


CERCA DE ALAMBRE LARGURA ANCHURA AREA 
(METROS) (METROS) (METROS) (METROS CUAD. ) 
1908 $ 560 D 
1006 5 45 22506 
1900 100 ADÚ 5909 
1009 156 359 52598 
1006 200 304 6D0D% 
1006 256 259 62500 
1006 3906 208 5EDPG 


ETE, 5 


RESPUESTA TIPO Alo EJERCICIO. 115 >; 


E 
9 REM + FIJA EL AREA MAXIMA EN CERO + 
1Ó M=8 
14 REM * FIJA LA LONGITUD DESEADA EN CERO * 
15 N=8 
19 REM ”F ES EL TOTAL DE METROS DISPONIBLES + 
20 F= 1000 
24 REM * L ES LONGITUD DE UN LADO DEL RECTANGULO * 
25 FOR L= 8 TO 508 STEP 59 
29 REM * L ES LA ANCHURA DE UN LADO DEL RECTANGULO + 


O A 
39 REM “COMPARA A COM EL MAXIMO ACTUAL. REEMPLAZA SI ES 


NECESARIO * 
48 IF A<= M THEN GOTO 55 
45 M=A 
49 REM * TAMBIEN ACTUALIZA LA LONGITUD DESEADA ACTUAL * 
5 N=L 
55 NEXT L 


66 PRINT "DIMENSIONES CORRESPONDIENTES AL AREA MAXIMA" 
63 PRINT N ; "METROS POR"; 508 - N; "METROS PARA UN 
AREA TOTAL DE"; M; "METROS CUAD." 


EJECUCION TIPO PARA EL EJERCICIO 11-5 : 
DIMENSIONES CORRESPONDIENTES AL AREA MAXIMA 


256 METROS POR 258 METROS PARA UN AREA TOTAL DE 625048 METROS 
CUAD, 


RESPUESTA TIPO PARA EL EJERCICIO OPCIONAL 11-6 : 


1 


20 
38 


99 
199 
119 
129 
130 


REM * OBTENCION DE LA PAREJA OPTIMA RESISTENCIA 
RESISTENCIA DE CARGA + 
CLS 


INTERNA 


PRINT "RESISTENCIA", "POTENCIA DEL", "POTENCIA DE LA", 


"POTENCIA DE LA" 
PRINT -"DE CARGA", "CIRCUITO", "FUENTE", "CARGA" 
PRINT— "(OHMIOS)" 

PRINT 

FOR R = 1 70 29 

1 = 129/(18 + R) 

C=1* 1* (18 + R) 

51150 +14 

Los I+I*R 

PRINT R,C,S,L 

NEXT R 


EJECUCION TIPO PARA EL EJERCICIO 11-6 : 


RESISTENCIA POTENCIA DEL POTENCIA DE LA 
DE CARGA CIRCUITO FUENTE 
(OPMIOS) (VATIOS) (VATIOS) 
1 1309.49 1196.28 
2 1206 1906 
3 1197.69 852.871 
ETC. 


POTENCIA DE LA 
CARGA 
(VATIOS) 


119.408 
200 
Pes 


CAPITULO 12 


LA DECLARACION TAB 


Ya conocemos tres formas de escribir el formato de salida 
PRINT. 


Podemos : 


1. Encerrar lo que queremos decir entre comillas, inclu- 


yendo espacios en blanco si son necesarios. 


2. Separar los argumentos de la declaración PRINT con 
puntos y comas (;) a fin de imprimirlos muy juntos 


sobre la misma línea. 


3. Separar los argumentos de la declaración PRINT con 
comas (,) para imprimirlos sobre la misma línea 


en cuatro zonas de impresión distintas. 


Una cuarta forma es usando la función TAB, que es similar al 
espaciador TAB de una máquina de escribir ordinoria. Es de 
especial utilidad cuando la impresión consta de columnas de 
números con titulos. Escribir el siguiente programa y eje- 


cutarlo. 


19 - PRINT TAB (5); "EL"; TAB (28); "TOTAL"; TAB(35); "GASTADO" 

248 PRINT TAB (5); "PRESUPUESTO"; TAB(28); "AÑO"; TAB(35); 
"ESTE" 

38 PRINT TAB (5); "CATEGORIA"; TAB(28); "PRESUPUESTO": 
TAB(35); "MES" 


La pantalla debe mostrar : 
EL TOTAL GASTADO 
PRESUPUESTO ANUAL ESTE 
CATEGORIA * PRESUPUESTO MES 
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Como puede apreciarse, el número entre paréntesis de la 
declaración TAB, define la posición del primer carácter 


del texto partiendo del margen izquierdo de la pontalla. 


EJERCICIO 12-1 : Escribir un progrema usando las tres for- 


mas de PRINT que se muestran a continuación : 


PRINT nh e 14] e .“ 153 
Zo PRINR?" y 
PRINT TAB ( ); " A EJAS 147% ATA bl 


Colocar los títulos dados en el ejemplo anterior, usando la 
forma 1 para la primera línea, la forma 2 para la segunda 
línea y la forma 3 (la forma TAB) para la tercera líneo. 
Hay que fijarse en que ya que la forma l utiliza el formato 


automático, las demás deben adecuarse a este formato. 


La forma TAB, tiene algunas peculiaridades que conviene des- 
tacar. El punto y coma (;) después de TAB( ) puede ser sus- 
tituído por la coma (,) sin que por ello cambie la ejecución 
de la declaración PRINT. Tombién hay que tener en cuenta, 
que cuando se imprimen números, la computadora inserta auto- 
máticomente un espacio pora permitir la colocación del signo 


=Óx>s+ . 


Teclear y ejecutar el siguiente programa : 


1Ó A=3 
2D B=5 
10 05 As Bb 


48 PRINT TAB(19);"A"; TAB(28); "B"; TAB(3M); "C" 
5% PRINT TAB(1B); A; TAB(28); B; TAB(38); C 


La pantalla debe mostrar 


A 8 C 
3 5 8 


q0 


Observar el desplazamiento. de los números de un espacio, 
con respecto a las letras. 
Tendrá que tenerse en cuenta cuando se quieran alinear ti- 


tulos y respuestas. 
Cambiar la línea 24 para que diga 


28 B= -5 


. y RUN. Observar por qué es necesaria la alineación. 
DIVISION DE LAS LINEAS LARGAS 


¿Qué pasaría si se quisieron imprimir un gran número de ti- 
tulos o de respuestas sobre la misma línea, pero no se tu- 
viera el espacio suficiente sobre la linea del programa para 
poder poner todas los declaraciones TAB ? 

Resulta sencillo averiguarlo con el siguiente ejemplo. 


Teclear y ejecutar : 


1MA=1 
26B =2 
38 C =3 
¿d D=4 
SME=5 
6BF=6 
7BG =7 
8$ H= 8 
9% 1=9 
100 J 
290 PRINT "A"; TAB(50); "B"; TAB(1D);"C"; TAB(15); “D"; 
19 PRINT TAB(20); "E"; TAB(25);"F"; TAB(38);"G"; 

224 PRINT TAB(35);"H"; TABÍM0) "1%; TAB(45);"J" 

398 PRINT A; TAB(5); B; TAB(18);C; TAB(15);D; TAB(20); 
314 PRINT E; TAB(25); F; TAB(38);0; TAB(35);H; TAB(4B); 
328 PRINT I; TAB(45); J 


Ú 
run 
a 
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El punto y coma (;) que aparece después de cada instrucción 
ha resuelto nuestro problema. Hace que el final de una línea 
de impresión (PRINT) continúe hacia la siguiente —línea de 
impresión (PRINT) sin activar el retorno del carro. La com- 
binación de TAB y los puntos y comas (;) al final permite 

un número infinito de posibilidades y mucha flexibilidad 


para diseñar el formato de salida. 
LINEAS DE DECLARACIONES MULTIPLES 


El TRS-80 permite que las declaraciones se puedan encadenar, 
dentro de la misma línea, simplemente separándolas con dos 
puntos. 

Reemplazar las líneas 148 a 19% con lo que sigue, y ejecutor 


de nuevo el programa : 


E AA ¿6 
AR 1 =9:J]= 16 


La computadora lee de izquierda a derecho como si coda de- 


claración fuera un número de línea diferente. 


La Única excepción a esta regla se encuentra en la declara- 

ción IF -THEN con la que existen consideraciones especiales. 
Cuando se utilizon declaraciones múltiples, hay que tener 

en cuenta que no se puede mandar al progrcma que vaya a 

una declaración intermedia de la líneo de decloraciones múl- 
tiples. La ventaja de este tipo de líneas está en el ahorro 


de espacios, haciendo más cortos los programas. 


EJERCICIO 12-2 : Modificar la solución dada al ejercicio 
11-3 para que aparezca en la pantalla el importe cobrado por 
hora de trabajo. Usar la función TAB para hacer que la tabla 


muestre las 5 columnas. 


a 2 


EJERCICIO 12-3 : (Opcional) Modificar la solución dada al 
problema especial 1l1-ó usando la función TAB de menera que 


la impresión incluya la resistencia interna en la auvinta 


columna. 


Material Aprendido en el Capitulo 12 


VARIANTES DE IMPRESION VARIOS 


TAB Punto y coma finales 


Lineas de declaracio- 
nes múltiples 


AA 


SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 12 
RESPUESTA TIPO PARA EL EJERCICIO 12- 1 : 


19 PRINT "EL", "TOTAL", "GASTADO" 

28 PRINT "PRESUPUESTO ANUAL ESTE" 

38 PRINT TAB(9D); "CATEGORIA"; TAB(16); "PRESUPUESTO"; 
TAB(32); "MES" 


RESPUESTA TIPO PARA EL EJERCICIO 12-2 ; 


39 PRINT TAB(1); "AÑO"; TAB(12); "MES"; TAB(25); "SEMANA"; 

4% PRINT TAB(38); "DIA"; TAB(51); "HORA" 

85 REM CONVERSION DEL INGRESO SEMANAL EN INGRESO POR 
HORA * 

9D H*0W/49 

190 PRINT TAB(1); Y; TAB(12); M; TAB(25):; W; TAB(38);D; 
TAB(51);H 


EJECUCION TIPO PARA EL EJERCICIO 12-2 : 


TABLA DE SALARIOS 


AÑO MES SEMANA DIA HORA 

000) 416.667 96.1538 19.2368 2. 44385 

6006 506 115.385 23.769 2.88462 
ETC. 


RESPUESTA TIPO PARA EL EJERCICIO 12-3 ; 


30 PRINT "RESIST"; TAB(19); "RESIST", TAB(Z1); "POTENCIA"; 
35 PRINT TAB(36); "POTENCIA"; TAB(51); "POTENCIA" 

49 PRINT "INTER"; TAB(18); "CARGA"; TAB(21); "CIRCUITO"; 
45 PRINT TAB(36); "FUENTE"; TAB(51); "CARGA" 
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5$ 


a) 


129 


PRINT "(OHMIOS)"; 


"(VATIOS)"; 


PRINT TAB(36); "(VATIOS)"; 


PRINT" 


TAB(18);"(ORMIOS)"; TAB(21); 


TAB(51);"(VATIOS)" 


19"; TAB(18); R; TAB(28); C; TAB(35); 
S; TAB(38), L 


EJECUCION TIPO PARA EL EJERCICIO 12-3 : 


RESIST 
INTER * 


(OHMIOS) (OHMIOS) 


RESIST 
CARGA 


E 


POTENCIA 
CIRCUITO 
(VATIOS) 


1309.89 
1260 
1197 .69 


ETO. 


POTENCIA 
FUENTE 
(VATIOS) 


1196.98 
1909 
852.471 


POTENCIA 
CARGA 
(VATIOS) 


119.908 
200 
255.621 


CAPITULO 13 


== 


ITERACIONES ANIDADAS 
Escribir y ejecuter el programa : 
19FOR A = 1 TO 3 


26 PRINT "A LOOP" 
39 FOR B=:'1 TO 2 


ADOPT AM MB LOOP" 
50 NEXT 8 
GNEXT A 


El resultado debe ser : 


A LOOP 
8 LOOP 
B LOOP 
A LOOP 
B LOOP 
8 LOOP 
A LOOP 
8 LOOP 
8 LOOP 


La Pantalla muestra el funcionamiento de la iteración 
FOR-NEXT "anidada". "Anidomiento" es un término usado en 
el mismo sentido en que se usa cuando se dice que los 
vosos pora beber agua están "anidados” cuando se guardan 
uno dentro del otro para ahorrar espacio. 

Algunos tipos de sillas portátiles, cajas de cartón vacias, 
etc... pueden ser "anidados". Caben una dentro de la otra 


para su fácil apilomiento. 


Analicemos el programa linea a línea : 


La línea 14 establece la primero iteración FOR-NEXT, lla- 


mada Á y ordena que seo ejecutada 3 veces. 


La línea 24 imprime "A LOOP" para que sepamos de dónde 
sale el programa. Obsérvese cómo esta línea del programo 
se ha espaciado varios lugares para recalcar que se en- 


cuentra anidada dentro de la iteración "A", 


La línea 348 establece la segunda iteración, llamada 8. y 
ordena que sea ejecutada dos veces. Está aun más espacia- 
da de manera que pueda instantáneamente verse que está 
“encerrada” aún más profundamente dentro de la iteración 


YN 3 


La línea 4% imprime dos cosas : Primero el espacio que se 
muestra entre las dos comillas, luego la coma nos lleva 
dentro de la siguiente zona de impresión donde se imprime 
la iteración "B", 

Esto hace posible que se distingan claramente sobre la pan-= 


talla la iteración A y la iteración B. 


La línea 5% completa la iteración "B" y devuelve el control 
a la línea 3% para que se realicen tantas iteraciones como 
indique la línea 39. Hasta aqui, hemos impreso una "A" y 


una nr 


La linea 6% finaliza la primera pasada a través de la itera- 
ción "A", y manda el control de nuevo a la línea 1%, inicio 
de la iteración A. Loa iteración "A" se realiza 3 veces y la 


"Br", bi Veces (3 por: 2): 


Para entender mejor el sentido de la iteración anidada, 


modifiquemos la línea 1f, así : 
189 FOR A = 1 TO 5 


En la ejecución, puede opreciorse que la A se ha impreso 5 


veces y por tanto la B 18% veces. 


q 3 


Ahora se puede combiar la línea 38 pora que dico 
39 FOR B = 1 TO 4 


RUN. La A se ha impreso 5 veces y la B 20. Recordar que 


pi 


se puede parar la emisión de datos apretando las teclos 


th, (y), E) ó pulsando | BREAK ' (teclear CONT para con- 
! 


tinuar). 


Hay que poner especial atención cuando se trobaja con 


iteraciones anidadas para no cometer errores. 


Si se cambian las líneas 


50 NEXT A 
6BNEXT 8 
.«. y RUN 


La computadora dice ; 


WHAT? 
6% NEXT 8? 


El error se debe «a que la iteración B, no se encuentra 
anidada dentro de la iteración Á.. Tenemos la parte FOR 
de la iteración B dentro de la iteración A, pero la parte 
NEXT está fuera de ella, En un capítulo posterior se verá 
lo que se llama "diagromas de flujo", que son una forma 
de poder planear nuestros programas y evitar este tipo 


de problemas. 
COMO SALIR DE LAS ITERACIONES 


Para salir de las iteraciones cuando se desea, se pueden 
intercalar en el progrema declaraciones IF-THEN GOTO. 


Agregor estas líneas en el programa anterior : 


5% NEXT 8 
29 1 A 
68 NEXT A 


ti 


2 GOTO 198 


a8 


99 END 
109 PRINT "A FUE IGUAL A 2. FIN DE EJECUCION" 
A 4 RUI 


Como muestra la pontalla, se ha salido de la iteración A, 


cuando Á se iguala a 2 y se llega a la línea de prueba en 


nm 


5. El END de la línea 99 es sólamente un obstáculo que 

se pone como precaución para detener la computadora en " 
caso de error y que no pose por la línea 100, a menos 

que se le ordene que lo haga. Normalmente estos"bloques 

de protección", no son necesarios en programas tan senci- 
llos, pero deben usarse para proteger declaraciones espe- 


cificas (GOTO, IF-THEN), contra posibles errores. 


Un simil que visualiza muy bien el concepto de iteraciones 


anidadas puede ser el de las vasijas que muestra la "FIGURA" : 


FIGURA 


Supongamos que un grifo suministra agua a la vasija C. 
Esta vasija, se va llenendo, y cuando se completa, verte- 
mos su contenido en la vasija B. Habrá que repetir esta 
cperación un determinado número de veces para que la vasi- 
ja B se llene y cuando esto suceda, vertemos su contenido 
en la vasija A. Naturalmente, hay que volver a empezar a 
izenar la vasija € ya que tanto la B como la C se encuen- 
tran ahora vacias; sólo la A tiene una cierta cantidad de 
cgua. Repitiendo las operaciones de llenado de Cy B, 56 


termina por llenor la vasija A. 


ed 


EJERCICIO 13-1 : Teclear el programa original que se encuen 
tra al inicio de este capitulo. Contiene una iteración B ani- 
dada dentro de una iteración A. Hacer los cambios necesarios 
en dicho progrcma de manera que una nueva iteración llemada 

C quede anidada dentro de la iteración B, y que imprima 


"C LOOP" cuatro veces por cada pasada por la iteración B. 


EJERCICIO 13-2 : Modificar el programa residente de manera 
que seo el mismo programa que se encuentra en la respuesta 


al ejercicio 13-1. 


Hacer las adiciones necesarias a este programa de manera que una 
nueva iteración llamada "D" quede anidada dentro de una ite- 
roción C, y que imprima "D LOOP” cinco veces por cada pasada 


por la iteración C. 


Material Aprendido en el Capítulo 13 ——————_——, 
1 


VARIOS 


Iteraciones FOR-NEXT 
ANIDADAS 


Bloques de protección 
END 


SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 13 


RESPUESTA TIPO PARA EL EJERCICIO 13-1 : 


10 FORA = da 
24 PRINT "ITERACION A" 
30 FOR B = 1 TO 2 


49 PRINT " ", "ITERACION 8" 

42. FOR C=: 1 TO 4 

da PRINCE A RACIONES 
48 NEXT € 

59 NEXT B 

SÚNEXT A 


RESPUESTA TIPO PARA EL EJERCICIO 13-2 : 


Este programa es igual a la respuesta del ejercicio 13-1 


con las siguientes adiciones : 


45 FOR D= 1T0O 5 
46 PRINT ”m 18] - 0) ” ; ." ” A ”n ITERACION pe 
47 NEXT D 

NOTA : 


Para entender mejor cómo actúan las iteraciones anidadas, se 


puede detener varias veces la ejecución del progroma. 


a 
G 
cora. 


CAPITULO 14 


LA FUNCION INTEGER 


La función INTEGER, INT(X) nos permite "redondear" cual- 
quier número grande o pequeño, positivo o negativo, a un 


número entero. 


Teclear NEW para borrar cualquier programa viejo, luego 


escribase : 
39 X = 3.14159 
49 Y = INTOO 
50 PRINTOY = "5 Y 
. y RUN. 


En la pantalla debe aparecer 
ag 


El resultado muestra el redondeo del número Y a su valor 
entero más bajo. 


Si se cambia la linea 34 por : 


30 X = -3.14159 


+ Y RUN. La respuesta se redondea al valor entero - 4. 
A 


¿Qué clase de redondeo es este? Sencillo. La función INT 
SIEMPRE REDONDEA al número entero siguiente MAS BAJO. 
Hace a un número positivo menos positivo, y a un número 


negativo más negativo (o lo que es igual menos positivo), 


NOTA : 


EL BASIC NIVEL 1 permite a la función INT(X) trabajar sóla- 
mente con números mayores que -32767 y menores que +32767. 


EL BASIC NIVEL 2 no tiene esta restricción. 
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El uso de un valor de X fuera de este rango, hace que la com- 


putadora se detenga y pregunte HOW? 


CONTROL DE LA PRECISION POR MEDIO DE LA FUNCION INTEGER 


Escribir y ejecutar : 


30 X = 3.14159 

48 Y = INT(X) 

MO O 

60 PRINT " X ="; X 

2D PRINTOUY Y 

890 PRINT"Z.= “A 
ve Y RO 


3.14159 


EZ 


. 141589 


Hemos partido el valor de X en su valor entero, al cual lo 


hemos llamado Y, y su valor decimal al que hemos llamado Z. 


Las líneas 68, 76 y 88 simplemente imprimen los resultados. 


Ahora bien, si nos fijamos existe una diferencia entre Z y 


la parte decimal de X ¿A qué se debe? 


No tiene nada que ver con la función INT. En el capitulo 8 
se habló acerca de la precisión de la computadora (siempre 
hay que observar la precisión del último lugar o de los dos 
últimos lugeres decimales). Los usuarios de la TRS-80 que 
posean el BÁSTIC NIVEL 2 no «observarán esta rutina de "redon- 


deo de error", 


Existe una forma de controlar la precisión de los resultados 


en el BASIC NIVEL 1. 


193 


Tiene que ver con el redondeo ortificial de la fracción al 
número de lugares decimales deseados, forzando la computadora 
para que imprima sólo aquellos digitos que estén "apropiada- 


mente redondeados". 


Ejemplo : Supongamos que sólo se necesita un Í%” con 3 deci- 
males. Escribir y ejecutar el siguiente programa tecleando 


primeromente NEW. 


18 X = 3.14159 

2BX =X+ .0005 

30 X = INT(X * 1600) /1009 
48 PRINT X 


Se pueden dar otros valores a X, (asegurándose de que X * 1668, 


no sea demasiado grande para la función INT). 


Al agregar .10485 a X en la linea 24 se efectúa un redondeo 
de la cifra llamado "redondeo de 4/5". Asi, si la fracción 
tuviera un digito igual a 5 (es decir mayor que 4; de ahí el 
nombre) en el lugar de las diezmilésimas, al agregar .40D5 
se incrementaría el digito de la milésima en una unidad. 

El error cometido en este redondeo, después de efectuada la 
operación INT es como máximo de .PM05 mientras que sin la 


línea 2% se podría cometer un error máximo de .M4l. 


Ensayar otros valores para X (hay que asegurarse de que X*120% 


no sea demasiado grande para la función INT), 


Es fácil combicr el programa pora lograr redondear en un 
punto diferente, Por ejemplo pora redondear X en el lugar 
de los cientos (2 dígitos a la derecha del punto decimal), 


se pueden combiar las lineas 24 y 38 de este modo : 


28 X 
30 X 


X + .BÓ5 
INT (X* 100)/100 


$ 
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ún progroma aplicación de la función INT puede ser la sepga- 


roción de los digitos de un número decimal. Para realizarlo, 


tía a un número X en una parte entera y otra decimal :; 


49 Y = INT(X) 
MD Zl= X= Y 
60. PRIND E A 
TO'PRINTO O SY 
39 PRINT " Z= "; Z 


Si multiplicamos el valor Z por 1% entonces Z se convertirá 

en un número entero, además de tener una parte decimal: == 
1.41589. Podremos entonces tomar el valor entero y quitarle 

la parte decimal, dejando al dígito a mano izquierda sólo. 
Démosle el nombre de L al dígito a meno izquierda y veamos 


qué es lo que sucede. Añadamos : 


98. Mos-2: 48 

198 L = INT(M) 

A A 
«+1 Y RUN. 


" 


La pantolia nos muestra : 


3.14159 
3 
.141589 
1 


La 
] n 


rn” 
ti 


Ánora podemos usar una iteración FOR-NEXT co 


E] 
19) 
fa 
=$ 
feto 
| 
oa 
D 

42 
iS 
fra 

' 


3 ; Alas E pa 
tarle vinos cuentos digitos más. Escribomos : 


Es 
ñ 
S 
1 
e 


PE 
a) 
a 
< 
' 
E 
ES 
pa 
A 


148 NEXT A 
vea YrREISE 


E 
>: 
Z = .141589 
ds ] 


A 
11 
p 


” 
t 
(065 


A 
1 
co 


La pantalla muestra en forma descendente, todos y cada uno 
de los digitos. Vamos a analizar las adiciones al programa 


(después de hacer un LIST). 


En la linea 95 empieza una iteración FOR-NEXT de Ó pasos, 


uno para cada uno de los seis digitos a la derecha del de- 


La línea 12M origina un nuevo valor decimal a M (se trata 


el nuevo valor decimal por diez a fin de convertir el dígito 


1 


a meno izquierda en un entero y nacerio capaz de ser u 


zodo por la función INTÍM = .41589 *1W = 4,1589). 


La línea 140 mueve el control de nuevo a la linea 95 para 


o 
Le 


que se realice otra pasada a través del programa cortad 


LINEAS DE IMPRESION TEMPORALES 


Hasta ahora se ha visto suficiente materia como para 
entender, que resulta tanto más dificil seguir el pro- 
grama, cuanto más largo es. Sin embargo, existe una ma- 


nero sencilla que puede resultar de gran utilidad, 


Podemos poner "lineas de impresión temporales" en cual- 
quier lugar de cualquier programa con el fin de seguirlo 
paso a paso en su ejecución. La computadora puede fácil- 
mente saturarnos de datos, pero indicándole cuidadosa- 
mente qué es lo que queremos saber, podemos examinar 

los detalles internos de los cálculos. Agregar la siguien 


te línea : 


92 PRINT "4£ 92M=";M 
2 Y O, 


Los puntos esenciales de esta linec de "prueba", ó "ban- 


dera”, son 


1. Está imprimiendo algo. 

2. La impresión nos dice el número de la línea, lo que 
nos sirve de análisis y fácil localizoción para un 
borrado posterior, 

3. Nos dice el nombre de la variable que se está ob- 
servando en ese punto especifico del programa. 


4. Nos dá el valor de la variable en ese punto, 


esta "bandera" resulta de gran utilidad cuando se coloca 


en iteraciones FOR-NEXT. Escribamos : 
FRTA= CA 


De esta manera la información temporol sale en la pantalla 


y se puede seguir el desarrollo en la ejecución del progra- 


ma. LOA 


Para evitar que los datos se mezclen con la información, se 


pueden utilizar espaciamientos. Escribir 


92 PRINT" ", “492 M=" ¡Mm 
A AGA 
y RUN, 


Ahora, la lectura de datos y de información temporal resul- 
ta mucho más fácil. Vomos a colocar otros puntos en el pro- 


grema. Escribamos 


125 PRINT " ed eel 2125 M = mM 
LIS PRINT O" 0 0 LI A 
sí ¿Y RUN: 


Ayudándose de la flecha ascendente, se puede estudiar la 
ejecución del programa poso a paso, obteniendo información 
complementaria en puntos del progroma que ayudan a la com- 
prensión del mismo. 

Después de verificar, que el programa trabaja correctamente, 
se pueden borrar las banderas de información temporal puesto 


que ya han cumplido con el cometido a que estaban destinados. 


EJERCICIO l4-]1 : Escribir este pequeño programa para encon= 


trar el área de un circulo. (Primero teclear NEW). 


10 P=3.14159 

28 PRINT "RADIO", "AREA" 
3% PRINT 

48 FOR R = 1 TO 19 

SÓ A = Pe RER 

66 PRINT R,A 

78 NEXT R 


El área es igual a Y multiplicado por el cuadrado del radio 
(esto es, el radio multiplicado por sí mismo). Ejecutarlo 
y asegurarse de que funciona. 


pos 


Se pide : modificar el programa para obtener el resultado 


sin decimales, (añadiendo una linea 55). 


EJERCICIO 14-2 : Cambior la línea 55 del ejercicio anterior 
para que cada valor del área se redondee (hacia abajo), con- 


servando la primera cifra decimal. Ejemplo 


RADIO AREA 
1 3.1 


etc... 


EJERCICIO 14-3 : Modificar la línea 55 del programa para 
que redondee (hacia abajo) el valor del área, de manera que 


tenga una precisión de dos decimales. 


EJERCICIO 14-4 : Revisar la línea 55 para conseguir una 


precisión de 3 decimales en el cálculo del AREA, 


Material Aprendido en el Capitulo 14 a 


FUNCIONES VARIOS 


INTOO Banderas 
(o indicadores) 
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SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 14 
A A NE LAN IU 14 


RESPUESTA TIPO PARA EL EJERCICIO 14-1 : 


El agregar la única línea siguiente da como resultado una 


impresión bonita y limpia, con todos los valores "redondea- 


dos" a su valor entero : 


55 A = INT(A) 
RESPUESTA TIPO PARA EL EJERCICIO 14-2 : 


35 Az INT(1D * A)/19 


Cuando se multiplica 3.14159 por 1fM, se convierte en 31.4159 
El valor entero de 31.4159 es 31 y dividido por 1% es 3.1. 


RESPUESTA TIPO PARA EL EJERCICIO 14-3 : 
Este es cosi demasiado sencillo. 


55 A = INTCLOB * A)/1OG 


RESPUESTA TIPO PARA EL EJERCICIO 14-4 : 


Probablemente se haya tecleado : 


55 A = INT(1GGB * A)/1006 


pero se ha obtenido un aviso de error 


HOW? 


Teóricamente el problema está bien, pero la computadora no 
trabaja. La explicación es simmle : El error <e debe = que 
la función INTÍA) no admite valores de A mayores que 32737 


y en nuestro problema hemos rebasado ampliamente esta cifra. 


Con un BASIC NIVEL II, el problema habría funcionado sin 
1 nos obliga a pensar 


complicaciones, pero el tener un NIVEL 


en otro tipo de solución para el problema. 


55 A = INT(A) + INT((A - INT(A)) + 10900)/1800 


pi 


CAPITULO 15 


LA DECLARACTON ON-GOTO 


Escribir el siguiente programa : 


16 INPUT "TECLEAR UN NUMERO ENTRE 1 Y 5" ¿N 

26 IF N= 1 GOTO 118 

38 IF N= 2 GOTO 138 

486 IF N= 3 GOTO 159 

58 IF N = 4 GOTO 174 

6% IF N = 5 GOTO 19% 

70 PRINT "EL NUMERO QUE HA TECLEADO NO ESTA ENTRE 1 Y 5" 


99 END 
110 PRINT "N= 1" 
128 END 
1384 PRINT "NN = 2" 
148 END 
150 PRINT " N = 3" 
168 END 
179 PRINT "N= 4" 
188 END 
190 PRINT "NN <= 5" 


NOTA : 


Una línea de programa puede tener hasta 72 caracteres in- 
cluyendo el número de línea y los especios, Como la pentalloa 
tiene sólcmente 64 coracteres, cuando se "lista" una linea 
de 72 caracteres, se ocupan dos líneas en la pantalla, pero 


sigue siendo una línea en el programa. 


Ejecutor el progroma asegurándose de que está libre de erro- 


res. 
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Aunque este programa funciona correctamente, existe una for- 
ma que lo simplifico. Esta forma es la ON-GOTO y para exa- 
minar cómo actúa, vamos a borrar las lineas 28, 30, 48, 58 


y 68 y escribir : 


29 ON N GOTO 11H, 139, 156, 178, 199 


Si se ejecuta el progroma, se obtienen los mismos resulta- 


dos anteriores. 


La declaración ON-GOTO es realmente muy sencilla. La línea 


26 dice, 


Si el valor entero de N(INTEGER) es l entonces vete 
(GOTO) a la linea 1184, 

Si el valor entero de N(INTEGER) es 2 entonces vete 
(GOTO) a la línea 134. 

Si el valor entero de N(INTEGER) es 3 entonces vete 
(GOTO) o la linea 158. 

Si el valor entero de N(INTEGER) es 4 entonces vete 
(GOTO) a la línea 174. 

Si el valor entero de N(INTEGER) es 5 entonces vete 
(GOTO) a la linea 19%. 

Si el valor entero de N(INTEGER) no es igual a ninguno 
de los números anteriores, entonces pasa a la siguiente 


línea. 


La declaración ON-GOTO, tiene la declaración INT incorpora- 


da, que realmente actúa osí : 


28 ON INT(N) GOTO .. . ETC. 


Teclear los siguientes valores de N para demostrar este 
punto : 

EL 

3.99999 
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B.999 
AI 
6.B001 


Existen muchos trucos que pueden ser empleados para sacar 

el máximo rendimiento a la declarcción ON-GOTO. Por ejemplo, 
si se quisiera mandar a 13 diferentes lugares, obviamente 

no se puede escribir tantos números diferentes sobre una lí- 
nea ON-GOTO, pero se pueden utilizar varias líneas, como 


sigue : 


2% ON N GOTO 118, 138, 158, 178, 19% 
25 ON N-5 GOTO 218, 234, 258, 27M, 298 
38 ON N-14% GOTO 318, 330, 358, 378, 398 


. y se ponen las respuestas apropiadas en aquellos números 


de línea. 


En la línea 25 se le ha restado 5 al número N; asi cuando N 
valga 6, para la linea 25(N-5) valdrá 1 y mandará ir a la 
dirección 214. En la línea 3/4 se ha usado el mismo procedi- 
miento. Como acabamos de ver, N puede ser, bien una variable 
alfabética, o bien una expresión completa que, además, puede 


haber sido colculada previomente. 


Debido a la incorporación de la función INT a la función ON- 


GOTO es muy común hacer la siguiente modificación 


5B ONN+.2 GOTO 164, 208, 38D ETC... 


De este modo se agrega una cantidad pequeña a N sin perder 
de visto que la declaración ON-GOTO contiene su propia fun- 
ción INT. Si N ha sido redondeada por ejemplo a 1.98 (en 

vez de un 2.200 esperado), se le agregará fM.2 haciendo a N 
1.98 +.2 = 2.18 que gracias a la función INT incorporada se 


redondeará al valor deseado de 2. 


En 


Frecuentemente se le agregon a la N, para estos propósitos, 


valores entre .1 y .5 en programas escritos correctamente. 
LA FUNCION SGN Y SUBRUTINAS 


La función SGN exomina cualquier número para ver si es nega- 
tivo, cero ó positivo. Nos dice que el número es negativo 
proporcionando un (-1). Si el número es cero nos da un (£). 
Si es positivo, obtendremos un (+1). Es una función muy sen 


culos 


Desafortunadamente el BASIC NIVEL 1 no incluye la función 
SGN, pero medicnte progroma, es posible crear o simular 
funciones que no se tengan. Estas funciones elaboradas re- 


ciben el nombre de subrutinos. 


Una subrutina es un programa corto pero muy especializado 
que se incorpora a un programa principal para satisfacer 
una necesidad especiolizada. El BASIC NIVEL 2 almacena mu- 
chas de ellas en memoria y pueden ser llamadas por una sim- 
ple secuencia de letras. (En el NIVEL 1, existen algunas 


como INT), 


En el aportado 62 de este manual, se encuentran una variada 


goma de subrutinos. 


No hay suficiente memoria disponible en el NIVEL 1, como 
para guardar todas las subrutinos en la memoria, por lo que 
vamos a utilizar una subrutina de cinco lineas en vez de lo 
función SGN para lograr lo mismo. Incluso disponiendo del 
BASIC NIVEL 2 se debe completor este capitulo para asegurar- 


i 
se de que se ha aprendido lo relacionado con las subrutinas. 
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Escribamos la subrutina que aparece en el apartado 62% ; 


3DEDO END 

38808 REM “ SENO? 1 
39819 IF X< Y TEEN T 
30828 1F X = £ THEN T= 8 
36838 IF X > 8 THEN T 
38848 RETURN 


e A ON 


La línea 30PL% constituye como se recordará, un bloque pro- 


tector. 
LLAMADA A UNA SUBRUTINA 


La llamada a una subrutina se realiza com la declaración 
GOSUB 4 +4 44 4. Esta declaración le dice a lo computadora 
que vaya al número de línea indicado (44 44 44 ¿2) y una 

vez ejecutada la subrutina devuelve el control «al punto del 
progroma o línea siguiente a la declaración GOSUB de partida. 
El retorno se realiza por medio de una declaración (RETURN), 


que se coloca al final de la subrutina. 


Para que se entienda mejor, vomos a combinar la función 
SGN (usando la subrutina del apartado 6) y la declaración 


GOSUB en el siguiente programa : 


1% INPUT "TECLEAR CUALQUIER NUMERO"; X 
2% GOSUB 38806 
38 ON T + 2 GOTO 50, 68, 76 


45 END 

56 PRINT "EL NUMERO ES NEGATIVO" 
55 END 

68 PRINT "EL NUMERO ES CERO" 

65 END 


7% PRINT "EL NUMERO ES POSITIVO" 


RUN, E 
; ES 


Dar a X valores positivos, negativos y cero para comprobar 


que funciona. 
Vamos a analizar el programa 


La línea 14 da entrada a cualquier número. 

La línea 28 manda a la computadora a la línea 34848 medion- 
te una declaración GOSUB. 

Esto es diferente de un GOTO normal, ya que GOSUB devuelve 
el control, a la línea siguiente de cquella que manda ir 

a la subrutina. 

La GOSUB no se terminará y no se alcanzará la siguiente 
línea de programa hasta encontrar RETURN. 

Las líneas 38800 a 36848 contienen la subrutina. 

La línea 34848 contiene el RETURN el cual dewuelve El cons 
trol a la línea 3. 

La linea 34 es una declaración ON-GOTO ordinaria, pero se 
le agrega 2 al valor de su variable, en este caso, T. 

La línea 340 en realidad dice "Si T es 1 entonces vete 
(GOTO) a la línea 5. Si es Á entonces vete (GOTO) a la 
linea 68, y si es +1 vete (GOTO) a la línea 79". Agregán- 
dole un 2 a cada uno de estos valores los hemos convertido 


en 1, 2 y 3 que quedan así incorporados a la ON-GOTO. 


Las líneas 45, 55 y 65 son bloques protectores de rutina. 


En este interesante capítulo hay que destacar la importan- 
cia de los conceptos rutina-subrutina. Para completarlo, 
diremos que cualquier subrutina puede ser incorporada a 

un programa como rutina, en lugar de colocarse aparte de 
él. En este coso las líneas GOSUB y RETURN sobran y la su- 
brutina sólo puede ser uscda una vez. En esto último radi- 
ca la importancia de las subrutinas, en que pueden ser uti- 
lizadas dentro de un programa un número ilimitado de ve- 


ces; basta para ello con hacer llamadas GOSUB. 


VR 


El valor de usar rutinas especiales como subrutinas es que 
algunas de ellas son excesivamente complejas para ser es- 
critos sin error, y si cado una de ellos se escribe sólo 

y eE E e -- > ” e 
una vez y es almacencda en cinto cassette, puede resultor 


más rápido, y se puede cargar en la computadora como primer 


vaso en la erección de un nuevo programa. 
EJERCICIO 15-1 : Eliminor las líneas 308048 a 30844 del 


progroma de manera que funcione igual que llamando a la 


e Material Aprendido en el 


FUNCIONES DECLARACIONES VARIOS 


a 


SONO ON-GOTO Eliminación de errores 
GOSU8 Llomada a una su- 
brutina | 


Rutinas 


RETURN 


SCLUCICN A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 15 
A EA EE TARA IU 


RESPUESTA TIPO PARA EL EJERCICIO 15-1 : 


19 INPUT "TECLEAR CUALQUIER NUMERO"; X 


248 REM * RUTINA SGN * 


22 1F X< Y THEN T <= -1 

24 IF X =D THEN T= 0 

26 IF X2 Ó THEN T =41 

39 ON T + 2 GOTO 58, 64, 79 

45 END 

59 PRINT "EL NUMERO ES NEGATIVO" 
55 END 

6 PRINT "EL NUMERO ES CERO" 

65 END 


7% PRINT "EL NUMERO ES POSITIVO" 


CAPITULO 16 


LECTURA DE DATOS 
A AA 


Hasta aquí hemos aprendido cómo introducir valores numé- 
”; 1 e > - SÉ + 
11cos en el programa por dos métodos diferentes, 


El primero es, dar el volor dentro del progrcmo 


El segundo es hacer uso de la declaración INPUT poro in- 


troducir un número a través del teclado 

1% INPUT A 
Una tercero forma consiste en utilizar la declaración DATA. 
Escribomos el programa siguiente : 


19 DATA1,2,3,4,5 

20D READ A,B,C,D,E 

30 PRINT A;B;C;D;£ 
<< Y RUN, 


La declaración DATA es en muchos aspectos similar al primer 
método en que la línea DATA es parte del programa. Es di- 
ferente, sin embargo, ya que cada linea DATA puede contener 
muchos números, cada uno de ellos separados por una coma. 
Cada parte de DATA debe ser leido por una declaración READ. 
Cade declaración READ puede leer un número determinado de 
partes del DATA si cada variable alfabética se separo Dor 


UNE COma. 


La pantalla muestra que las 5 partes del dato <n ica línea 
1% (los números 2318, 300 ham sido: beidas (READ) por la 
línea 28 (la cual csigna letras de la A a la E), e impre- 


sas por la línea 34, 
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Debemos tener presentes estas diferencias : Las líneas DATA 
pueden ser leídas únicamente por declaraciones READ. 

Si escribimos varios datos a continuación de la declaración 
DATA, debemos separarlos mediante comas. 


Los datos suministrados por el teclado pueden ser introduci- 


dos únicomente a través de declaraciones INPUT. 


Las líneos DATA, siempre se leen de izquierda a derecha por 
las declaraciones READ; si existen varias líneas DATA, la 


lectura comienza por la de número de línea más bajo. 


Las líneas DATA pueden colocarse en cualquier lugar del pro- 


grcma. Para comprobarlo : 


12) Pasemos la línea DATA de la 18 a la 25 y ejecutemos. 


El resultado no debe combiar. 


22) Pasemos la línea DATA de la 25 a la 1998. El resultado 


tampoco cambiará. 


Este hecho permite que distintos programadores utilicen esti- 
los diferentes. Algunos colocan todas las líneas DATA al 
comienzo del programa, con el fin de que resulte rápido en- 
contrarlas para combiar datos. Otros las colocan todas al 
final fuera de donde podrícn estorbar y donde existen más 
líneas disponibles para seguir agregando datos. 

Algunos sitúan las líneas DATA a lo largo del progroma, in- 
mediatomente después de las lineas READ. El estilo que se 
use, no tiene consecuencias importantes, pero es conveniente 


adoptar uno determinado. 


amos a ver anora como trabaja la línea READ en medio de una 
lteración. Borremos el progroma anterior mediante la instruc- 


ción NEW y tecleemos : 


Ea 


19 DATA 1,2,3,4,5 
20 FORN= 17105 


36 READ A 
49 PRINT A; 
SÓ — NEXTON 

y RUN, 


El cambio de la posición de la línea 18 a la 25, no modi- 
fica en nada la ejecución. 

Observemos que en cada iteración se lee y se escribe la 
letra A, pero su valor es diferente cada vez. 

esto es lógico porque los datos se van introduciendo su- 


cesivamente y de uno en uno. 


Cuando se agotan los dotos de una línea DATA se comienza 
con la siguiente línea DATA, siempre que una declaración 


READ continúe solicitando la lectura de los mismos. 


Combiar la linea 2% del programa de la siguiente manera 


24 FORN=1TO6 
y RUN. 


En este caso, como la declaración READ pide la lectura de 
6 datos y sólo tenemos 5 en la linea DATA, aparecerá un 


mensaje de error en la pantalla. 

12345 How? 

3 READ A? 
Cambiemos ahore la línea 28 de modo que el número de datos 
a leer sea menor que el de datos disponibles 


20 FORN= 1 TO 4 
y RUN. 


58] 


1 programa se ejecute normalmente con tal de que no se 
utilicen todos los datos disponibles y se pidan más. Debe- 
mos subrayar que cada dato de una declarcción DATA, puede 


ser leído una sola vez por ejecución. 


Como excepción de esto último, diremos que la declaración 
RESTORE permite releer los datos, debido a que a veces 
resulta necesario leerlos más de una vez en una sola eje- 
cución. En el momento en que aparece en el programa un 
"RESTORE", todes las lineas DATA son restauradas a la si- 
tuación de"no leidas", hayan sido leidas o no anteriormente, 
iniciándose de nuevo la lectura con el primer dato de la 


primera línea DATA. Cambiemos otra vez la línea 24 : 


28 FOR N<=1T0 5 
Introduzcamos : 


35 RESTORE 
A 


La pantalla imprime 5 veces 1, en lugar de 1,2,3,4,5 . 
¿Por qué? . La linea 34 lee un l para A, pero la línea 

35 restcura inmediatomente LÁ LINEA DATA A SU CONDICION 
ORIGINAL DE NO-LECTURA. Cuando la iteración FOR-NEXT 
obliga a pasar de nuevo por la línea READ en el ciclo si- 
guiente, se lee otra vez la misma porción de información, 
que consiste en el mismo 1. Lo mismo sucede con todas las 


posadas posteriores. 


Los declarcciones READ y DATA son muy comunes. Se usa con 


menos frecuencia loa declaración RESTORE (RESTAURAR). 
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Hemos estedo utilizondo las letras de la A a la Z para 
indicar números. Se denominan VARIABLES NUMERICAS. En 
el BASIC NIVEL I se han reservado dos simbolos adicio- 
nales para representar VARIABLES ENCADENADAS. Estos son 
AS, y BS, que llamaremos "cadena A, y cadena 8". Las 
variables encadenadas pueden ser asignados para que in- 
diguen Letros, Palabras y/o Combinaciones de letras, 


números y espacios de hasta 1ó caracteres. Tecieemos 


NEW y a continvación escribamos 


19 INPUT "COMO TE LLAMAS"; AS 
20 PRINT "HOLA, "¡AS 
«a Y RUN, 


Hasta cnora había 2 formes de imprimir palabres. La pri- 
mera, «aprendida en los primeros lecciones, era "deposi- 
tando” palabras dentro de las declaraciones PRINT (se 
puede llamar "impresión de una cadena"). La segunda for- 


mo ero introduciendo las palabros por medio de una de- 


( 'introducción de la ca- 


claración INPUT (se podía llamar 


dena"). La tercero forma es la que acabamos de ver y 


a 


que podemos llomar "lectura de una cadena", 


Realicemos los combios que se indican a continucción en 


30 PRINT "VES MI ASTUCIA"; AS 


a Y RUN 


La pantalla muestra un error debido «a que una variable en- 


cadenada sólo puede abarcar l1ó coracteres,. 


El BASIC NIVEL I tiene dos variables encadenados disponi- 
bles. Aprovechando estas dos variables podemos escribir de 
nuevo el programa para que imprima el nombre completo de 


la microcomputadora, 


lA READ AS 

15 READ BS 

2% DATA RADIO SHACK,TRS-80 

39 PRINT "VES MI ASTUCIA"; AS5;” ";BS 


Analizando el programa : 


La línea 289 contiene dos elementos DATA, separados por una 
coma. 

La línea 1% lee el primero. 

La línea 15 lee el segundo, 

La línea 38 contiene cuatro expresiones de impresión. La 
primera imprime VES MI ASTUCIA, dejando un espacio detrás 
de la "A" ya que las variables encadenadas siempre consi- 
deran las letras juntas, permitiéndo la opción de insertar 
el espacio. La segunda imprime RADIO SHACK. Lo tercera im- 
presión es el espacio comprendido entre las comilles. Lo 


Ultima expresión es TRS-80. 


EJERCICIO l6-1 : Diseñar un programa que produzca exacta- 
mente los mismos resultados, pero utilizando sólamente AS 

y no B3. Sugerencia : Utilizar un bucle FOR=NEXT. La mayor 
porte del aprendizaje hasta aqui, está contenido en este 
sencillo programa. Debemos asegurarnos de haberio entendido 


bien antes de continuar. 


Recordordo capitulos anteriores, en lo modalidad de calcu- 
ladora se veia la posibilidad de revisar el contenido de 


cada variable mediante la forma 
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Análisis 
La línea 19 fija el valor de la S igual a 1. 


¡Eo E 


a 


nea 20 fija el valor de la N igual a M. Estos dos va- 
lores pueden inspeccionarse rápida y sencillomente teclean- 


do PRINT S,N en la modalidad de calculadoro. 


Lo línea 38 da entrada a la respuesta de la pregunta, ya 
sea S o N (también cceptará SI y NO y cualquiera otras 
palabras que empiecen con S y N). "A" toma el valor de la 
S o de la N como se define en las líneas 18 y 28. 

La línea 48 prueba el volor de A, y si es l, manda el 
control a la linea 68. Si no es 1 (pero no necesaria- 
mente $), la línea 48 lleva o la línec 58 que imprime su 
mensaje. 


La línea 59 es un END de protección con el fin de que la 


línea 68 no se imprima, si es que ya lo ha sido la línea 


5H. 


Le hemos dado cuidadosamente a S y a N los valores de 1 

: oi 
y DB. Esto no significa que otras letras no puedan tener 
esos mismos valores. Eso no importa con tal de que sola- 
mente se oprima SóN, 
Como una protección parcial para impedir que el usuario 
oprima una letra incorrecta y accidentalmente llegue a 
una respuesta equivocada, podemos reforzar nuestro progra- 


ma agregando estos lineas 


45 IF A = Ú THEN 50 
47 PRINT "POR FAVOR RESPONDA YA SEA CON UNA S O UNA N" 
49 GOTO 398 


1Z4 


Análisis 

La línea 45 insiste en que pero obtener la respuesta en la 
q ' 

línea 5, se debe teclear un cero. Sabemos que una N lo 

hará con toda seguridad. Otras letros podrán tembién tener 

el valor de cero. 

La línea 47 nos da una respuesta en caso de 'no pasar la 


prueba", advirtiéndolo al operador que tecleó algo distin- 


to "de AL 0 No: 


La linea 49 menda a la línea 3% con objeto de ofrecer una 


nueva oportunidad de oprimir la tecla correcta. 


NOTA : 


Ensayar un PRINT A;B;C;D; etc. para comprobar si cualquier 


otra varicble alfabético está almacenando un valor 1 o cero. 


EJERCICIO 1lé-2 : Diseñar y escribir un progrema sencillo 
que pregunte al usuario por lo menos cinco preguntas y en 
el proceso entable una pequeña conversación con él. Lógi- 
camente para este ejercicio no se da la solución puesto que 


las posibilidades son infinitos. 


Material Aprendido en el Capítulo l6 


DECLARACIONES VARIOS 
READ Variables Encadenadas 


(Arreglos) AS,BS 


DATA Variabies numéricas 
RESTORE (S/N) 
(RESTAURAR ) (enseñéndo a la TRS-30 


a responder 51 á NO). 


A 
IZ 8 


SOLUCIÓN A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO l6 


RESPUESTA TIPO PARA EL EJERCICIO ló=1 : 


a) 


PRINT. . "WES ML ASTUCIA"; 
FONS E TON 

12 READ AS 

20 DATA RADIO SHACK, TRS-30 
3% PRINT AS;" ES 

48 NEXT ON 


Or 


Análisis : 


La línea 3 imprime la primera parte, dejando un espacio para 
la impresión del A3 siguiente y tiene un punto y coma final 


con el fin de que se suprima el retorno del carro. 
La línea 5 establece una iteración FOR-NEXT de dos pasadas. 
La línea 106 lee RADIO SHACK. 


La línea 28 contiene las dos cadenas de datos, separadas por 


una coma. 


La línea 38 imprime radio Shack y un espacio en la primera 
pasada de la iteración N. Observar que el punto y coma final 


se encuentra de nuevo para suprimir el retorno del carro. 


” 


La líneo 48 devuelve el control a lo línea 5 (la iteración); 
la segunda pasada a través de la iteración, imprime TRS-80 
y otro espacio en blanco, (que no produce efecto alguno por- 


no. . j x 
ave el programa ha finalizado). 


FUNCION "VALOR ABSOLUTO" 


Después de algunos capitulos bastantes densos, vamos a ver 
ahora un capitulo muy breve, pero no por ello exento de 
interes. 


Nos referimos a la función " walor absoluto", 


El VALOR ABSOLUTO de cualquier número es ese mismo número 


pero sin signo, ya fuese éste positivo o negativo. Es decir 


Ñ 
me 

) 
ace 
Nr 

* 
PS 


Si X es menor que f, entonces ABS(X) 
Si X = Ú entonces ABS[(X) = X = Y 


Si X es mayor que fM, entonces ABS(X) = X 


Escribamos 


18 INPUT "TECLEAR CUALQUIER NUMERO POSITIVO O NEGATIVO"; X 
20 Y = ABS(X) 
AONERINT CO, NY 
40 PRINT X,Y 
... Y RUN, dando diferentes valores numéricos, positivos y 
negativos. 
Sin importar que número se haya introducido (como X), su va- 


lor absoluto "Y" es el mismo número pero sin signo. 


Material Aprendido en el Capitulo 17 Pb 


FUNCTONES 


ABSÍ(X) = valor absoluto de X 


CAPITULO 18 


El BASIC del microcrdenedoz TRS-80 posee la coracteris- 
tica de que se pueden editar los programas en formas 
abreviadas. Si no se han usado estas formas hasta ahora, 
se debe a que se pretendía ofrecer un conocimiento del 
BASIC usual, para posibilitar el intercambio de informa- 


ción con los distintos usuarios de este lenguaje. 


Casi cualquier INSTRUCCION, DECLARACION y FUNCION tiene 
una notación en tequigrafía mucho más Oreve y sencilla, 
efectuando, sin embargo, el mismo cometido. La lista 

completa se encuentra ol final del último capítulo. He 


aqui una lista de los estudiados hasta el momento. 


NEW = N, INPUT = IN. 

AN, E ESO, e 15 

RUN = R. NEXT = N. 

PRINT = P, USAWE <=. CS, 

MEM =:M, CLOAD = CL. 

STOP = ST. STEP = S. (cuando se 
CONT = Cc. utilice con FOR=NEXT) 
oia oa ple 
dal: e A! 
eolcii DATA =D, 

RESTORE = REST. READ = REA 

GOTO = 6. 


NOTA 


Ahora podemos interpretar la pruebo realizada en el Caopí- 


tulo 1 después de encender lo microcomputadora. 


¡31 


Teclecmos entonces P.M. solicitendo de este modo la impre- 


sión del número de posiciones libres de memoria. 


Además, el interpretador de Radio Shock permite poner más 
de una declaración en cada linec numerada, separéndolcs por 


vn (:). Por ejemplo, una iteración cronometrada como 
100 FOR N = 1 TO 500 
118 NEXT N 
se convierte en ... 
180 FOR N = 1 TO 5O8:NEXT N 
a HS Orto GÚM... 
190 F.N=1TO5BB:N.N 
««. Oún menos espacio ... 


198F .N=1TOSRB:N.N 


La última linea puede ser introducida a la computadora tal 


¿28 


como se muestra sin dejar espacio libre entre el número de 
línea y la primera letra, ounque la computadora automático- 
mente introducirá un especio cuendo se le ordene un LIST. 
Operando como ecabomos de indicar, se conserva el espacio 


extra que hemos venido introduciendo hasta la fecha. 


Como puede apreciarse, la combinación entre la taquigrafía 
Radio Shack y las líneas de declaraciones múltiples, pue- 
den llevarnos a una reducción importante de espacio en los 
progremas. Como contrapartida, el juntar tanto la informo- 
ción dificulta su lectura y comprensión; por lo tanto en la 
mayor parte de este manual evitaremos las lineas de declara- 
ciones múltiples. Sin embargo, cuando realmente se quiera 


PA 


ahorrar espacio, ésta será la única forma de hacerlo. 


Al llegar a este punto hemos de hacer una observación im- 
portante : Debemos tener un cuidado especial cuando uti- 
licemos la declaración IF-THEN en líneas de declaraciones 
múltiples. Para ilustror este hecho, veamos qué ocurre al 


ejecutor el siguiente progroma oara diferentes valores de X. 


19 IN. "TECLEAR UN NUMERO"; X 


29 IF X = 3 THEN 59:0.79 

30 P. "COMO LLEGO HASTA AQUI?" 

4% END 

50 P. "xr 

68 END 

7% P."NO PUEDE LLEGAR DESDE ALLA HASTA AQUI". 
<<» Y RUN, 


La línea 28 es ilegal. Si X vale 3 el control se transfiere 
a la linea 5M, pero si dicha condición no se cumple, el con- 
trol pasa a la linea 38. Asi pues, nunca se tiene en cuenta 


la segunda declaración de la línea 25, 


En general, ol utilizar líneos de decloraciones múltiples, 


se debe tener en cuento 


a) Cuando se quiera utilizar una declaración IF-THEN (ó un 
ON-GOTO), para indicar una prueba que se efectúa dentro 
de una línea declerativa múltiple, deberá ser lo última 


declaración en esa línea. 


b) No se puede mendar el control 


a 
al 
pa 
E] 
Le] 
Ca 
po ] 
14] 
€ 
3 
“+ 
o 
¡35 
m 
F 
a 
ra 
a 
pes] 
_ 
o 


declarativa múltiple con excepción de su primero decla- 
ración. Observar la línea 28 del progroma residente. Aún 
neu, no existe forma 
alguna de direccionarlo, ya que, comparte el mismo número 


de línea que la primera declaración de la líneo. 


Sólo la primera declaración podré ser direccionable 


mediante un GOTO ¿ un IF-=THEN. 


c) Las líneos DATA, no pueden existir en líneas que conten- 


gan otras decleraciones. 


EJERCICIO 181 : Escribir de nuevo cualquiera de los pro- 
gramas de capítulos enteriores, usando líneas de declara- 
ciones múltiples csi como, las expresiones taquigráficas 
de Radio Shack. Utilizar el P.M. pare averigucr el número 
de posiciones de memoria disponibles. Resolver de nuevo el 


problema de manera que se use la menor memoria posible, 


material. Aprendido' en el CopítuLo 18 mins 


FUNCIONES VARIOS 
IF 
(declaración) gráfico NIVEL 1 
con THEN omitido. 


Lineas Declarativas 


] 

(condición) Dialecto taqui- 
múltiples. 
j 
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LA FUNCION RND (NUMERO ALEATORIO) 
A EN ALA SOR LO) 


Un número al ozar, es un número cuyo valor no se puede 
predecir. Un generador de números al azar es aquel que 
extrae uno determinado entre un número finito de posi- 
bilidades. £l BASIC NIVEL 1 posee un generador de este 


tipo mediante la forma : 


N = RNID(X) 


Donde N es un número al ozar. 
RND es una abreviatura y simboliza al azar (random). 
X es un número de control que podrá ser escrito entre los 


ho 


paréntesis o traido como variable de algún otro lugar 


del programa. 
Escribamos : 


5% PRINT RND(£) 


«+. Y RUN. Si se ejecuta por lo menos 10 veces, se observa 


que : 


1. Cada vez ha aparecido un número diferente, 
2. Todos los números están entre yl. 
3. Los números pequeños han sido expresados en nota- 


ción exponencial, 


Una manera más cómoda de extraer los 10 números es mediante 


el bucle : 
4D FOR N= 1710 14 
59 PRINT RND(H) 
60 NEXT N 
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Ahora vemos a poner un punto y coma al final de la línea 


PRINT e incrementar el bucle a 90 pasadas 


4% FORN= 1 TO 9% 
5) PRINT RND(J); 
6% NEXT ON 

<=. Y RON 


De esta manero es bastante apreciable el carácter aleato- 
rio de los números obtenidos, y podemos intuiz que la 
función RND va a ser muy útil para la mayoría de los pro- 


gramas de juegos. 
VARIANTES DE RND 


La RND(B) con la que se ha trabajado, es el generador tra- 
dicional de números al azar. Con ayuda de la función INT 
y algo de matemáticas se puede construir una RND de núme- 
ros aleatorios enteros. No vomos a estudiar esta técnica 
porque el BASIC TRS-80 incluye esta forma de operar en su 


propia RND. Comprobémoslo escribiendo 


58 PRINT RND(15) 


y RUN. Resumiendo : 


1. Si el número dentro del peréntesis (o su valor entero) 


es cero, los números generados estarán entre £ y uno. 


2. Si el número entre paréntesis es mayor o igual a uno, 
los números generados serán de 1 al valor entero de 


aquel número (inclusive), 


3. En el BASIC NIVEL 1, el valor más alto permisible será 
32767 . 


Para demostrar una vez más el carácter aleatorio de la 
función RND, vamos a estudiar un programa basado en el 
conocido juego de tirar la moneda al aire y comprobar 
cuántos veces sale cara y cuántes cruz. Cuantas más ve-= 
ces se tiro la moneda, tento más nos acercamos al 50% 


de caras o cruces. 


Escribir este progrema que simula la tirada de una mone- 
do en taquigrafía Radio Shack y utiliza líneas declara- 
tivas múltiples sólo por practicar un poco. Teclearlo 


con mucho cuidado para evitar errores : 


1Q H= B:T=0:P 
26 IN. "CUANTAS VECES TIRAREMOS LA MONEDA" ;F :CLS 
3% P. "AGUARDE MIENTRAS TIRO LA MONEDA..... » 


4 F.N=1 TOF :X=RND(2) :ONXG 68,78 

5O P. "FALLO! NO HA SIDO NI 1 NI 2":END 

6% H=H + 1:6.89 

7B T=T+l 

8D N.N:P.:P.:P.:P 

9D P. "CARAS", “CRUCES”, "TOTAL DE TIRADAS":P.:P.H,T,F 
GB P. 190 HF; "2", 198 T/F; "20:P.:P.:P 
. y RUN, 


Tirar la moneda 10, 50, 100, 1000...etc. veces, hasta con- 
vencerse totalmente de que el generador de números al azar, 


produce verdaderamente números aleatorios, 


Análisis del progrema : 


La linea 1% está constituida por tres declaraciones. La 


primera inicializa a H(CARAS) en coro. 


La segunda fila Típora las CRUCES) igual a cero. La terce- 
ra inserta un espacio en la impresión de salida con un 
PRINT(P). 

LS 


La linea 2% tiene dos declaraciones. 1- Da entrada cl 


número deseado de tircdas. 2- Limpia la pantcila (CLS; 


, 


poro empezor lo siguiente línea de impresión en l 


o 
19) 
[9] 
H 
! 


te superior de la misma. 
La línea 38 imprime une declorcción o mensaje de "Espera 


La línea 4% consta de tres declaraciones. l- Inicia una 


itercción FOR-NEXT que corre "F'" veces. 2- Es el gene- 
rador RND(X). Le hemos dicho que genere enteros entre 1 


, y por supuesto ésto lo restringe tan só 


Ao] 


números 1' y 2. Lo care será el "1" y la cruz será el 
X 


3- ¡ina prueba ON-GOTO manda con 


es donde se cuenton "las caras”, y con X= 2 a 


ma 


79D que es donde se cuentan "las cruces”, Cbservor que 


esta prueba es la última declaración de lc línea decia- 


La línea 5 es uno línea en caso de error. Si X es di- 
ferente de uno ó dos (1 ¿ 2), se imprimirá el menscje 


Cc. 
ES 


de error y la ejecución finalizora. 


La linea 6% utiliza H como contador. La linea 1% ini- 
cializa H en cero, y codo vez que la prueca £N-GO0TO 
manda el control e ess linea debido a que X =1, se in- 
crementa [en 1) H y guarda la cuenta del número de "ca 
y ; 1 E ¿ Si SA 
ras". La segunda declaración manda el control a la 1i- 
neo 80 que establece un nuevo ciclo del bucie, Cuendo 
se hen dado F vueltas, la linea 38% se dirige hacio las 
T 


cuciro declerociones PRINT(P.) vacias, devolviendo ade- 


más el control a la linea 44. 


En e e e . . + e 9. 

Si la línec 4 genera otro númere al azar íl ó¿ 2) y 
este número es X = 2, entonces la ON-GOTO monda el zon- 
trol a la linea 70. 


Aron ES 


La línea 740 cuento las cruces, pesando luego a NEXT 


En la linea 9, se imprimen los titulos, luego la líneo 


vego los volores de Hi 


GENERADORES SIMULTANEOS 


Es posible generar más de un número al ezor usando más de 
un generador en el programa. Esto tiene valor especial 
cuando los rangos de los generadores son diferentes, pero 


* 


es de utilidad incluso cuando los rangos son los mismos. 


Parc el estudio de este apartado vamos a simuler una tira- 
da de 2 dados mediante progrema, Cada dado tiene Ó caros, 
poseyendo cada cara uno puntuación distinta comprendida 
entre 1 y 56. Cuando se tiran los dados, se suman el nú- 
mero de puntos obtenidos. Los números inferior y superior 
deben ser el 2 y el 12 respectivamente. Vamos a simular 

un genercdor de números al czor distinto paro coda dado 
déndole a cado uno un rango de l a 6 y llamando a los dados 


A yin 


Escribomos NEW y luego : 


58 A=RND(6) :B=RND(6) :N=A+B 
5H P.N 


... y RUN. Ejecutémosio varios veces , 


Como puede oprecicrse, todos los números que imprime estan 
entre cero y 12. La suma se corresponde fielmente con la 
suma de lo tirada de dos dedos convencionales; decimos es- 


to porque se podía haber cenerado un número aleatorio entre 


2 y 12 que no cumpliera con el requisito, por ejemplo : 


50 P.RAD(11y+i 


á 
ceo 


La explicación del por qué este generador no simula una 
tirada de dados es que las posibilidedes de que salga un 


2, un 3 ó un 7 con los dedos son distintas, mientras que 


con este tipo de generador, son iguales. 


En su forma más simple, el juego consiste en lo siguiente : 


1. El jugador tira los dos dados. Si obtiene una suma de 
2, de 3 ú de 12 en la primera tirada, pierde y el jue- 


go ha terminado. 


2. Si el jugador saca 7 u 11 en la primera tirada (llamada 


natural) gona y el juego ha terminado. 


3. Si saca cualquier otro número, éste se convierte en la 
puntuación del jugador. Deberá seguir tirando hasta 
que, o bien consiga la misma puntuación y gane, o bien, 


saque un 7 y pierda. 


En el apartado 32 se muestra un programa de juego de dados. 
Referirse a el para estudiar detenidemente sus pasos. Una 
forma de aprender a programar es el estudio de programas 


terminados. 


Los números al azar son impredecibles, los obtenidos por 
las computadoras que funcionan adecuadamente no lo son. 

Ási es que, ¿cómo podemos obtener números al azor de una 
computadora? No los obtenemos; obtenemos números seudo- 
aleatorios. Cada vez que se utiliza la función RND, la com- 
putadora hace uso internamente de "un número semilla” para 


producir el número al azar deseado. 


FUNCIONES 


RND(D) para números al 
azar mayores que 


Ú y menores que 1. 


| RNDÍN) para números al 
| azar entre l y N. 


1H1 


Moterial Aprendido en el Capítulo 19 


VARIOS 


Azar vs Seudo-azar 


CAPITULO 20 


A través de este copitulo, se estudiarén los procedimien- 
tos y copacidades básicas de dibujo en la pantalla de video. 


Partiendo de un pequeño bioque luminoso, se pueden lr crect 


105 


o sistemos de dibujo, que permitirán poner «a orueba la 


4 
da 
imoginación del progromodor. 


Veamos ahora dos instrucciones 


pontalila. 


RESET (Vuelve a la situación inicial). Apaga un determinado 


bloque luminoso en la pantalla. 
G p 


Para posibilitar el dibujo sobre la pantalla de video, se 
divide ésta en un número de secciones, (observar la hojo 

de trabojo del display de VIDEO que se encuentra en la pá- 
gina siguiente). Cada sección es un bloque rectangular de 


dos unidades de ancho por cuatro de alto y cada uno posee 


su propio dirección. 


Por ejemplo la parte : 


SET(55,32) 


.o 
a: 


Significa "ilumina" el bloque situado en 


de La Tim A” 55 y lo columna *Y" 32 


La X es la dirección horizontal que se cuenta a partir 

de la parte izquierda de la pantalla. La Y es la direc- 
ción vertical, y se cuenta en forma descendente a partir 
de la parte superior de la pantalla. Por lo tanto comien- 
za en la esquina superior a mano izquierda. 


E 


Ao 


La luz se enciende exactamente en ese punto. Para cercio- 


rarse, sevisor la hoja de trabajo del display de video 


pS] 
a 
e 
o 
1) 
3 
a) 
0 
5 
“+ 
4 
9] 
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8) 
O 


ión del bloque luminoso. 


Escribamos cuidadoscmente : 


Como podemos ver el bloque luminoso ha desaparecido. El 
efecto es el mismo que si hubiésemos instalado un inte- 


rruptor para encender y apagar. 
Escribamos de nuevo 


58 SET(55, 32) 
y ejecutémoslo 5 veces seguidos. Escribomos luego 


59 RESET(55,32? y ejecutemos. 


Como se aprecia, la luz no se ha apagado. La explicación 
está en que el retorno del carro después de la 52 ejecu- 
ción, ha movido la pantalla hacia arriba con lo cual ha 
dejado al bloque luminoso en una dirección distinta a la 
original, y sólamente si se encuentra en una dirección 
determinada se ilumina o se apaga. Las direcciones de la 
pantalla nunca se muever:. 

Llegcmos, por tanto, a la conclusión de que podemos con-= 
trolor el encendido o apagado de ceda bloque de la panta- 
lla, controlando sus direcciones con declaraciones SET 


y RESET. 
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INTERMITENCIAS 


Anteriormente hemos visto que disponíamos de un inte- 
rruptor de encendido y apagado. Ahora vamos a crear un 


bloque luminoso intermitente. Escribomos y ejecutemos : 


14 CLS 
28 X = 69 
38 Y = 25 


4% SET(X,Y) 
58 RESET(X, Y) 
6% GOTO 48 


DIRECCIONES DE LOS BLOQUES DE LA PANTALLA DE VIDEO 


Como puede apreciarse en la hoja de trabajo de la panta- 
lla de video, existen 128 direcciones horizontales de 
bloques luminosos, numerados del cero al 127. El cero 
está en el extremo izquierdo, el 64 hacia la mitad y 


el 127 en el extremo derecho. 


En la dirección vertical existen 48 direcciones de blo- 
ques luminosos numerados del 4 al 47. El cero se encuen- 


tra en la parte superior y el 47 en la parte inferior. 


La declaración "SET(X,Y)" ilumina el bloque que de en- 
cuentre en la posición X-ésima, contada de izquierda a 
derecha en dirección horizontal y en la posición Y-ésima 


contada de arriba a abajo. El RESET trabaja de la misma 


forma. 


Escribamos este programa que ilumina el bloque que se 


quiera escoger : 


1% INPUT "LA DIRECCION HORIZONTAL (Ma 127) ES";X 
2% INPUT "LA DIRECCION VERTICAL (8 a 47) ES";Y 
38 CLS 

48 SET(X,Y) 


Ejecutémoslo para varios valores de X e Y, 
¿Qué sucede si X = 158 6 Y = 68? . Hagamos la prueba. 


Cuando la dirección excede de los valores máximos bien 
sea de X ó de Y, comienza la cuenta en otra línea a par- 


tir de estos valores máximos. 
PROGRAMAS GRAFICOS 


Es probable haber observado que si el bloque se enciende 
en la esquina superior izquierda, el READY y el apuntador 
> lo destruyen. Probar con X = 6 e Y = 6; luego con X =4 
e Y =4. Podemos evitar este problema evitando que regrese 


el control del apuntador agregando : 
99 GOTO 99 


Esta línea al finol del programa, trabaja como un bucle 
sin fin. Para salir del bucle, hay que oprimir la tecla 
| BREAK. Debe colocarse un bucle sin fin al final de todo 


programa gráfico. Puede efectuarse una prueba con valores 


tales como : X = f, Y = ff; X = 4, Y = 4. Recordar que hay 
que oprimir la tecla l BREAK ¡ para detener un progroma grá- 


— 


FICO: 
A! 

Mientras que existe una tecla (CLEAR |), que reajusta to- 
dos los bloques sobre la pantalla l1levándolos a la situa- 
ción de apagados, no tenemos ninguna otra similor para 
iluminarlos. Sin embargo, podemos escribir un progroma 

que ilumine la pantalla entera. El programa utilizo un 
borrador (CLS), dos bucies FOR-NEXT y uno más sin fin, 


$ 


Escribamos y ejecutemos : 


19 CLS 

248 FOR X = Y TO 127 
39 FOR Y = f TO 47 
4. SET, 

SÓ NEXT Y 

6% NEXT X 

99 GOTO 99 


El programa cubre la pantalla de izquierda a derechc. 
Ahora vamos a rediseñarlo pora que empiece en la parte su- 


perior y vaya cubriendo la pantalla hacia abajo. 
Escribamos y ejecutemos : 


149 CLS 

28 FOR Y = Y TO 47 
39 FOR X = TO 127 
49  SET(X,Y) 

59 NEXT X 

6D NEXT Y 

99 'GOTO99 


Áhora podemos hacer que se cubra de abajo a arriba : 


Solución : 


19 CLS | 
28 FOR Y = 47 TO f step -1 
38 FOR X = M TO 127 


6% NEXT Y 
99 GOTO 99 


Y ya sólo falta que el programa cubra la pantalla de iz- 


quierda a derecha. 


nr ? 


Solución : 


1% CLS 

28 FOR X = 127 TO f STEP -1 
38 FOR Y = 8 TO 47 

4% SET(X,Y) 

50 NEXT Y 

6% NEXT X 

99 GOTO 99 


EJERCICIO 20-1 : Escribir un progroma que permita dibujar 
sólamente en una pequeña parte de la pantalla, introducien- 
do los números de los bloques inicial y final, correspondien 


tes a sus direcciones horizontal y vertical , 


Ahora podemos escribir sólamente líneos. Primero tecleare- 
mos NEW y luego escribiremos el programa correspondiente a 


una línea horizontal y lo ejecutaremos: 


1% INPUT "DIRECCION VERTICAL ( a 47)"; Y 
2% CLS 

39 FOR X = TO 127 

48 SET(X,N) 

5% NEXT X 

99 GOTO 99 


El programa «wrrespondiente a una línea vertical corresponde 


al enunciado siguiente. Escribámoslo y ejecutémoslo : 


1% INPUT "DIRECCION HORIZONTAL (Y a 127)"; X 
2% CLS 

38 FOR Y = YM TO 47 

AB SETOS, Y 

5H NEXT Y 

99 GOTO 99 


(ey 


añora nos proponemos modificar este último programa de 


manera que se pueda introducir, medionte un INPUT, la 


1 


F ARAN E z «AN: e A . 
dirección inicial vertical y la longitud (en bloques) de la 


líneo. 


Solución : 


LA DIRECCION VERTICAL INICIAL 4£(9 A 47) ES"¡V 


14 IN. "CUANTOS BLOQUES VERTICALES DESEA LLENAR";A 


16 IF V - 
18 PRINT 
19 END 


1 < 48 GOTO 29 
"SON DEMASIADOS BLOQUES VERTICALES" 


30 FOR Y = VTOV + A 


Como ya se ha aprendido a dibujar líneas, ahora podemos 


dibujar cuadrados y rectánguios. El siguiente progrema 


forma un rec 


18 INPUT 
24 INPUT 
38 INPUT 
4% CLS 
59 FOR L 
68 SET(L 
7B  SET(L 
8% NEXT L 
9D FOR M 
19D SET ( 
119 SET 
120 NEXT M 
999 GOTO 9 
y RUN, 


tángulo. Después de teulear NEW, escribamos 


"PUNTO HORIZONTAL INICIAL (8 A 127)";X 
"PUNTO VERTICAL INICIAL (8 A 47)";Y 
"LONGITUD DE CADA LADO (EN BLOQUES)-- (8 A 47)";K 


2 IDO NERO 
SÍ 

eE 

A A O A 
X,M) 

(X + K, M) 
90 


EJERCICIO 20-2 : Debido «a que los bloques básicos son rec- 


tóángulos de 
se obtienen 


para obtener 


2 por 4 y no cuadrados, con el programa anterior 


rectángulos. Se propone combiar el programa 


cuedrados. La solución se encuentre al final 


¡HA 


del capitulo pero se recomienda intentarlo uno mismo, 
OTROS TIPOS DE PROGRAMAS GRAFICOS 
E ERUORAMAS GRA LOS 


Todo nuestro trabajo relacionado con las gráficos hasta 


* 


aqui he consistido en dibu 
pontalla oscurecida. Podemos hacer lo contrario "pbin- 
tando” inicialmente la pantalla de blanco, y posterior- 
mente oscurecer las úáreos deseadas con un RESE 
programa, por ejemplo, se escribe una línea oscura so- 


bre una pantalla con su fondo blanco. Escribemos : 


18 IN. "POSICION VERTICAL (8 A AY 
248 CLS 
39 FOR X = M TO 127 
49 FOR J= 8 TO 47 
4 SETA, Y) 
6% NEXT J 
7Ó NEXT X 
88 FOR X = A TO 127 
9%... RESET(X, Y) 
10% NEXT X 
999 6.999 
++. Y RUN, Si se desea se pueden efectuar modificaciones 


sencillos, para dibujar en "positivo" y "negativo". 


Podemos dibujar más líneas cambiando tan sólo las direccio 
nes de X y de Y de SET en el bucle FOR=NEXT. Escribamos el 


programa siguiente para dibujar líneas diagonales, 


18 INPUT "PUNTO HORIZONTAL INICIAL (f A EAN RA 
2% INPUT "PUNTO VERTICAL INICIAL (DA 47)3":Y 
38 INPUT "LONGITUD DE LA DIAGONAL" ;k 

48 CLS 


SD FOR E = YU TOR 
60 SET (X-+L, Vs 1) 
7% NEXT L 


77 GOTO 29 


Una vez obtenida la linea dicoonal, podemos formar un 


triángulo rectánavlo cgregando : 


7B SET(X,Y +L) 
MUSEE Mi O 
90 NEXT L 


TESEO ES 
30 SEFOC “da 
9D NEXT L 


La diferencia entre los dos fragmentos de proaroma añoadi- 
q prog 


dos, es que las imágenes son simétricas una de otro, 


En todos los programas gráficos que se acaban de mostrar, 
se podia haber hecho que las líneas fueran punteadas in- 

troduciendo un STEP (incremento) diferente de 1 dentro de 
los bucles FOR-NEXT. Por ejemplo, podemos obtener una li- 


neo horizontal punteada con : 


1% INPUT "DIRECCION VERTICAL (fa 47)";Y 
2% INPUT "TAMAÑO DEL INCREMENTO";S 

39 CLS 

df FOR X = M TO 127 STEP S 

SÓ SET(X, Y) 

SB NEXT X 

99 GOTO 99 


pa] 
2 


jecutemos este progrome pare varios valores de S. Coser- 
varemos que a medida que se incrementa S, se escribe la 


/ 


línea con mayor velocidad (ya que la computadora tiene 


menos puntos que ilumincr). En realidad esta es la forma 
en que se produce una imcgen de televisión c que tambis; 
cilí se escribe de unidad en unidcd zero a tel velocidad 


ocupa. : 


55 RESETÍXA, Y -1) 
ELE, E A | 
3 GOTO 46 


Si S es pequeña se puede ver la formación y berrado de 
las lineas. Pero si S es gronde, (probar con S = 10) 
Pos r 


la línea parece moverse y casi no se cprecia el borrado. 


En el siguiente progroma se va a dibujar un punto sobre 
la pantalla, de manera que se mueva hacia abajo (también 


se podia haber hecho el movimiento hacia arriba). 


10 INPUT "PUNTO HORIZONTAL INICIAL (8 a 127)";X 
2% INPUT "PUNTO VERTICAL INICIAL (8 « 47)";Y 
30 CLS 

49 RESET(X, Y -1) 

SENA Y) 


99 GOTO 99 


La orden RESFT borra simplemente el bloque luminoso del 
ultimo SET. Si se omite esta instrucción, el progrema di- 


buja una linea. 


Un detalle a tener en cuenta es que el SET ó RESET no 
trabaja con coordenadas negativas. Comprobémoslo escri- 


biendo 


IP RESETAA LO 


a; AE A MR | EN 1 p 
d1 se elige un valer de Y de entrada igual «4 cero, Y 


toma el valor -1, y el programa no se ejecuta. Veamos 
qué sucede sí realizamos el siguiente combio en la lí- 
nea 4% : 


46 RESETÍX, Y + 47) 


El programa se ejecuta ahora, eligiendo un punto de par- 
tida de Y = A 
También se puede mover el punto hacia la derecha, hacien= 


do 


149 INPUT "PUNTO HORIZONTAL INICIAL (98 a 127)"; X 
24% INPUT "PUNTO VERTICAL INICIAL (8 a 47)";Y 

3% CLS 

4% RESET (X+127,Y) 

5D SET(X,Y) 

60:X:= X 4-1 

78 GOTO 49 

99 GOTO 99 


Cbservemos que se ha utilizado el mismo sistema anterior 
para evitar valores negativos de Y. 


¿Qué sucede si se cambia la linea 44 por la siguiente? 


Ejecutemos de nuevo. ¿Y si se cambio por esta otra? 
40 RESET(X-125, Y 


1 
A 


Como puede apreciarse, el punto se hace mayor. 


CHA 


manera que consigan desplazar el punto hacia arriva y 


hacia la izquierda respectivamente. 


! y ES > “ al il A + a Aa 
ANore SQGamos que € Duñio. Se cespiace nacio 489709 Rasta 


Ala pon vi nn. mam harris” 5 O a] na “ 
ue ENaque Eon RO. Sar Para. Qt SIQUESNO! 2S) : 


E TALMIUT PUERTA IMD TISAITA > o E VOS NA 
19 INPLE PENTO HORIZONTAL INICIAL ELN] DL Á 
” - eta jar A a 4 es y 

PA A E AN HR E | AY OTRA 
Z0 ps ¡UN él Ñ la Vr e de ¡¿iCIAL Le E CE 


110 1F Y < 48 THEN 138 


IFÍÚ) k THEN 286 
999 GOTO 999 


El punto parece chocar con la barrera y adherirse a ello. 


Ahora, hagamos que el punto se origine en la mitad y que 


rebote en la parte superior e inferior. 


“y 
pr 


70 D 
86 RESET(S4,Y+48-D' 
9 SET (64,Y) 


119 IF Y = 43 THEN 130 


129 IF Y< > 1 THEN: 89 


na 


Yoservemos que hemos tomado precauciones para que no 
se borre la barrera. Paro ésto, no sólo se mueve el 
punto dos pasos hacia otrés con la linea 138 (des- 
pués de moverlo 1 hacio adelante con la línea 100), 
sino que también devolvemos el control del programa 
% donde se encuentra el SET, en lugar de 


mandarlo a la linea 88 donde está el RESET: 


El siguiente programo es una muestra de las posibili 


dodes de dibujo en la pantalla de video. VYomos a di- 


Primero sus piernas ; 


Luego le añadimos el cuerpo y ¿os brazos : 


ty 


7D FOR K = MB TO 
30 SET(X+K, 34+K 


¿y 
Y 


9H SET(X, 34+K) 
19% SET(X-k, 34+K) 
118 NEXT K 

. y RUN. 


y finalmente la cabezc : 


120-SET(X, 32) 

13% SET(X+2,33) 

148 SET(X-1,33) 
. y RUN. 


Ahora vamos a hacer que se mueva hacia la derecha : 


45 RESET(X+K-1, 40+K) 
55 RESET(X-K-1, 48+K) 
85 RESET(X+K-1,34+K) 
95 RESET(X-1,34+K) 
195 RESET(X-K-1,34+K) 
125 RESET (X-1,32) 
135 RESET (X,33) 

145 RESET(X-2, 33) 


o E Al 
168 GOTO 38 
. y RUN, 


Indudablemente todos los programas escritos en este capí- 
tulo son sólo una muestra de las posibilidades de las de- 
cloraciones SET y RESET. Intercombiando los citadas decla- 
raciones en los proaremos que acabamos de ver, obtendremos 
figuras oscuros sobre fondo blanco. 

Podemos hacer alguna prueba para comprobarlo. De cualquier 
forma pensamos que tenemos elementos suficientes para ela- 
borar nuestros propios progremos gráficos y visualizados 


en la pantalla del TRS-30. 


4 


——— Materiol Aprendido en el Capítulo 20 


DECLARACIONES 


19 INPUT "SLOCUE ECRIZONTAL INICIAL (89 a 1271";54 
28 INPUT. "SLOCCUE FORIZONTAL FÍNAL (8 a 127)";1 
30 INPUT “BLOCUE VERTICAL INICIAL (8 a 47)":V 

4d INPUT "ELOCUE VERTICAL FINAL (4 a 47 1"¿w 


2 


69 FOR X = H TO 1 
78 FOR Y= V TC W 
80" SET(X, Y) 

98 NEXT Y 

19% NEXT X 

999 GOTO 999 


RESPUESTA TIPO PARA EL EJERCICIO 20-2 : 
Se combion las siguientes líneas. El resto es igual. 


FOR LL = TO Xi AD 
FO SETUL, Vek+1) 

9% FOR M = Y TO Y+K+1 

119 SET(X+K *2+1,M) 


RESPUESTA TIPO PARA EL EJERCICIO 20-3: 
EA. PARA MOVER EL PUNTO HACIA ARRIBA 


19 INPUT "PUNTO HORIZONTAL INICIAL (9 a 127)";X 
26 INPUT "PUNTO VERTICAL INICIAL (8 a 47)";Y 

e ES 

46 RESETOX, Y+1) 

5% SET(X, Y) 

66 Y = Y - 1 


7Ó IF Y D=9 THEN 48 
88 Y = Y-48 
9H GOTO 48 
99 GOTO 99 


ARA MOVER EL PUNTO HACIA LA IZQUIERDA 


10 INPUT "PUNTO HORIZONTAL INICIAL (2 a 127)";X 
20 INPUT "PUNTO VERTICAL INICIAL (8 a 47)";¡Y 
39 CLS 

448 RESET(X+1,Y) 

5 SET(X, Y) 

6D X =X- 1 

79 1F X > =9 THEN 49 

8% X = X+128 

9 GOTO 46 

999 GOTO 999 


£ 


CONJUNTOS DE VARIABLES SUBINDICADAS ( A VECES DENOMINADAS 
ARREGLOS) 


Como se sabe, disponemos de 26 letras del alfabeto para 
ser usadas como variables. Hasta ahora, hemos utilizado 
sólo algunas en nuestros programas porque no hemos teni- 
do necesidad de más. Sin embargo, a veces es necesario 

tener disponibles cientos o miles de variables para ser 
utilizadas como identificaciones de datos que se quieren 


almacenar y extraer fácilmente. 


Para resolver este problema se utiliza el conjunto uni- 
dimensional de variables subindicadas ó "vector". Un 
vector nos permite representar una "serie de cosas", una 
"fila" ó "hilera". Supongamos que estamos hablando de 

una colección o hilera de 10 coches; todos ellos poseen 
diferentes placas (números de identificación) del 1 al 

10 y queremos usar la computadora para que rápidomente 
nos dé el tamaño del motor cuando identifiquemos el coche 


por su número de placa. Imaginemos que los datos dispo- 


nibles son los siguientes : 


PLACA 4H CILINDRADA DEL MOTOR 
(en pulgadas cúbicas) 


300 
200 


bh 


bo 


Om Qu q 0 
mo: 
SS 


y 
ES 
SS 


19 508 


Ahora se le podía dar a cada coche, un nombre alfabético 
diferente, usando las variables de la A a la J pero, ¿qué 


pasaria si en lugar de 10 fueren 100 coches? 


El NIVEL I del TRS-80 dispone de un sólo vector que se 
designa con la letra "A". No es igual a la variable al- 
fabética "A” y no tiene el mismo sentido que la variable 
encadenada AS. Hablamos ahora del tercer tipo de varia- 
ble A, que se reconocerá como una A(I). En nuestro ejem- 
plo, representaremos los coches por los voricbles que van 
de A(1) hasta A(1f8). La variable 1 que permite identifi- 
car a cada A(1I) se denomina indice y la variable A(1) re- 


cibe el nombre de variable subindicada. 


Almacenemos a continuación los distintas cilindrados de 
los motores de los coches, mediante una o más líneas de 


declaraciones DATA. 


Escribamos 


199 DATA 300,208, 500,2300, 208 
114% DATA 30D, 400, 406,300, 500 


Podemos observar que los elementos del DATA aparecen en 


orden, de modo y 


[= 


e la primera cilindrada de motor corres- 
ponda al primer coche, la segunda ol segundo y asi sucesiva- 


mente, 


los hallomos ahora en condiciones de direccionar los cita- 


dos elementos del DATA haciendo uso de vector. 


La forma sencilla de generar un vector es la que se indica 
a continuación. 


Escribamos : 


50 FOR L = 1 TO 14 
55 READ A(L) 
6% NEXT L 

. y RUN. 


Lógicamente no sucede nada, porque todavia no hemos mandado 
imprimir los resultados, de cualquier forma READY ha tardado 
un poco de tiocmpo en aparecer Lu que demuestra que el ordena- 


dor ha estado realizando algo. 


Como puede apreciarse, se ha utilizado un bucle FOR -NEXT 
pora leer los 1% elementos DATA que se almacenan en las voria 
bles comprendidas entre A(1) y A(1£). 

Para imprimir los valores de los elementos del vector, escri 


bamos : 


266 FOR N = 1 TO 18 
210 PRINT A(N) 
22% NEXT N... 

y RUN. 


Como puede apreciarse, se han leido los elementos del DATA 
dentro de un vector llamado A(L) pero se han impreso dentro 
de otro llamado A(N); esto no tiene consecuencias para la 
ejecución del progroma, ya que, lo que importa es el número 
que representa la letra L y N que es el que identifica la po- 
sición de cada elemento dentro del arreglo. Asi, se podía 
haber utilizado cualquiera de las 26 variabies o incluso 
ecuaciones aritméticas dentro de los paréntesis si hubiero 


sido necesario. 


E OO, 


Hay que recordar que sólo existe un vector cuyo nombre es 


"A" para el nivel I (BASIC 1). 


a seo 


'Ampliando el programa se puede escribir : 


17% PRINT 
18% PRINT "PLACA 4%", "CILINDRADA DEL MOTOR" 
216 PRINT N, A(N) 

. y RUN. 


De esta manera se han colocado títulos al vector y tenemos 
el número de placa y de motor en dos columnas que poseen 


una correspondencia biunivoca. 
Borremos a continuación las líneas 24,218,224 y escribamos : 


1% IN. "DE QUE COCHE DESEA CONOCER LA CILINDRADA DEL MOTOR" ;W 
21% PRINT W, A(W) 
. y RUN. 


Como puede apreciarse, éste podría ser el comienzo de un 


sencillo sistema de inventario. 


Supongamos ahora que se desea conocer también el color de 
cada uno de los 10 coches dentro de una clave de colores 
que van desde el uno hasta el cuot: 7. Necesitariomos enton- 


ces una tabla como la siguiente : 


PLACA 44 TAMAÑO DEL MOTOR CLAVE DEL COLOR 
1 306 3 
2 290 1 
3 506 4 
4 300 3 
5 200 2 
6 306 5 
7 406 3 
8 460 2 
9 360 1 

10 510) 3 


La tabla anterior recibe el nombre de "matriz". 

Una matriz es un conjunto de variables subindicadas con 

una dimensión superior a la unidad. 

El primer conjunto estudiado tenia una dimensión unidad, 

ya que, poseía une sola fila ó columna (tenia lo dimensión 
del "largo"). El conjunto de la tabla tiene dos dimensiones 


correspondientes a sus filas y columnas, sin contar el n2 


de placa (dimensión 2 : "largo" x "ancho"), 


Para trabajar con esta matriz de 10 filas x 2 columnas, 
nos interesa en primer lugar conocer la memoria libre de 
que disponemos. Para ello, suponiéndo que no se ha alterado 


el programa introducido, escribamos : 


PRINT MEM 
se debe obtener una respuesta de aproximadamente ... 


3378 


Existen 3378 celdos bytes de memoria sin utilizar. Usando 


la modalidad de caleuiadora, escribamos : 
PRINT 3378/1-1 


y obtendremos ; 


841.5 


Hemos encontrado así el espacio disponible para los elemen- 
tos de nuestra motriz, ya que cada elemento ocupa cuatro 


bytes de memoria. 


Como existe todavíc mucha memoria libre, vamos a asignar 
las posiciones 1891 a lc 114 para que almacenen la clave del 


color, usando una declaración DATA. Escribamos : 


390 DATA 3,1,4,3,2,4,3,2,1,3 
8% FOR S = 14 TO 114 

85 READ A(S) 

9% NEXT S 


. ES 
A 


Los números de los elementos del arreglo del 11 al 108, no 
se utilizan, así como tampoco los comprendidos entre el 111 
y el final de la memoria, ya que no se les ha asignado va- 
lores. 


Para imprimir toda esta información, cambiemos las líneas : 


19 IN. "DE QUE COCHE DESEA CONOCER LA CILINDRADA DEL MOTOR 
Y EL COLOR?"; W 
189 P. "PLACA ¿%£", "CILINDRADA DEL MOTOR", "CLAVE DEL COLOR" 
214 PRINT W, A(W), A(W + 190) 
e YA, 


Esta es la forma de manejar tablas gráficas o listas de 
inventario. Ahora se podia buscar, igual que se hizo antes, 


un coche que tenga cierta cilindrada y cierto color, 


Como podemos observar nos hemos visto obligados a introducir 
los elementos de una tabla bidimensional en un vector uni- 
dimensional. En el BASIC NIVEL 2, en cambio, dispondremos 


de matrices pluridimensionales. 


EJERCICIO 21-1 : Suponiendo que el: inventario de 10 coches, 
incluye tres modelos diferentes con las claves 18, 24 y 38 


como se indica a continvación ... 


PLACA 44 MODELO 
1 24 
2 28 
3 19 
4 24 
5 38 
ó 24 
7 36 
8 18 
9 26 
16 26 


LES 


La tabla anterior recibe el nombre de "matriz". 

Una matriz es un conjunto de variables subindicadas con 
una dimensión superior a 

El primer conjunto estudiado tenia una dimensión unidad, 

ya que, poseía una sola fila ó columna (tenía la dimensión 

del "largo"). El conjunto de la tabla tiene dos dimensiones 


correspondientes a sus filas y columnas, sin contar el n?2 


de placa (dimensión 2 : "largo" x "ancho"), 


Para trabajar con esta matriz de 10 filas x 2 columnas, 
nos interesa en primer lugar conocer la memoria libre de 
que disponemos. Para ello, suponiéndo que no se ha alterado 


el programa introducido,  escribomos : 


PRINT MEM 
se debe obtener una respuesta de aproximadamente ... 


3370 


Existen 3370 celdas bytes de memorio sin utilizar. Usando 


la modalidad de caleniadora, escribamos : 
PRINT 3378/4-1 


y obtendremos : 


841.5 


Hemos encontrado así el espacio disponible para los elemen- 
tos de nuestra motriz, ya que cada elemento ocupa cuatro 


bytes de memoria. 


Como existe todavía mucha memoria libre, vamos a asignar 
las posiciones 191 a lo 114 para que almacenen la clave del 


color, usando una declaración DATA. Escribomos : 
JO DATA 3 dd, 2,4 32, 1,3 
84 FOR S = 14 TO 114 
85 READ A(S) 
9H NEXT S 


¡ É 4 


Los números de los elementos del arreglo del 11 al 188, no 
se utilizan, así como tampoco los comprendidos entre el 111 
y el final de la memoria, ya que no se les ha asignado va- 
lores. 


Para imprimir toda esta información, cambiemos las lineas : 


19 IN. "DE QUE COCHE DESEA CONOCER LA CILINDRADA DEL MOTOR 
Y EL COLOR?"; W 
189 P. "PLACA AX", "CILINDRADA DEL MOTOR", "CLAVE DEL COLOR" 
21% PRINT W, A(W), A(W + 100) 
..« NRO 


Esta es la forma de manejar tablas gráficas o listas de 
inventario. Ahora se podía buscar, igual que se hizo antes, 


un coche que tenga cierta cilindrada y cierto color. 


Como podemos observar nos hemos visto obligados a introducir 
los elementos de una tabla bidimensional en un vector uni- 
dimensional. En el BASIC NIVEL 2, en cambio, dispondremos 


de matrices pluridimensionales. 


EJERCICIO 21-1 : Suponiendo que el: inventario de 10 coches, 
incluye tres modelos diferentes con las claves 14, 29 y 4 


como se indica a continvación , 
PLACA 44 MODELO 


24 
29 
19 


A A 
[%) 
a 


pues 
YA 
Mm 
a 


¡6% 


Modificar el programa, para que imprima la información del 
modelo del coche y la cilindrada, cuando se identifique un 


coche por su número de placa. 


APLICACION DE UN CONJUNTO UNIDIMENSIONAL DE VARIABLES SUBIN- 
€ DANA DE VARIABLES SUBIN- 
DICADAS (VECTOR) 


En el ejemplo presente, se pretende generar una baraja de 
cartas mediante un vector, de manera que se escojan elemen- 
tos del vector utilizando un generador de números al azar. 

Á medida que se "roba" cada carta, se fija el elemento co- 
rrespondiente a la carta del vector igual a cero, y se com- 
prueba cada corta robada para ver si es o no cero. De esta 
manera se puede completar la baraja sin repeticiones de car- 


tas. 


Se va a escribir poso a paso un programa que genera al azar 
las 52 cartas numeradas del 1 al 52, e imprime los números 
de las cartas sobre la pantalla conforme son generadas. No 
debe ser generada ninguna carta más de una vez. Cuando ha- 
yan sido generadas todas las cartas, se imprimirá "FIN DE LA 


BARAJA”. 


Se recomiendo adelantarse a los pasos sucesivos del ejercicio 


e ir comparando las soluciones con las del texto. 


Paso 12 : Generar las 52 cartas completas dentro de un vector, 


solución : 


36 FOR € = 1 TO 52:READ A(C):NEXT C 

59 DATA 1,2,3,4,5,6,7,8,9,146,11,12,13,14,15,16,17,18,19,28 
55 DATA 21,22,23,24,25,26,27,28,29,36,31,32,33,34,35,36 

6% DATA 37,38,39,48,41,42,43,44,45,46,47,48,49,58,51,52 


Paso 22 : Barajar 52 cartas al azar, imprimiendo sus valores. 


Solución : 


LÉE 


9% FOR N '=:1 TO 52 
196 V = RND(52) 
110 PRINT A(V); 
128 NEXT N 


Como puede verse, se imprimen 52 valores de cartas en la 
pantalla, pero el mismo número aparece más de una vez y 


existen otros en cambio que no aparecen, 


Paso 32 : Cuando se extrae una carta, hagamos que la varia- 
ble subindicada del vector correspondiente a ese índice sea 
igual a cero. Cuando se hayan extraido las 52 cartas, debe 


aparecer en la pantalla : FIN DE LA BARAJA. 


9 P= 52 

195 IF A(V) = BG. 180 

128 LET A(V) 1 9 

138 P=P-1 

148 IF P<>£ GOTO 194 

159 PRINT "FIN DE LA BARAJA" 


La línea 12% fija el valor de la variable A(V) igual a cero 
sólo si la linea 145 encuentro que no es igual a cero, per- 


mitiendo que el programa continúe. 


Á continuación observamos que : 


l. Se imprime el valor de la carta (línea 118). 

2. El número almacenado en esa variable subindicada se 
iguala a KM (línea 124). 

3. La línea 13% cuenta en forma decreciente el número de 
cartas que quedan por extraer. La linea 9% inicializa 
el número de cartas a 52. 

4. La linea 144 comprueba el número de cartas extraídas. 
Cuando este número alcanza el valor 52, se imprime 


" FIN DE LA BARAJA" en la línea 15. 


164 


Una vez ejecutado el programa, se puede efectuar una prue- 
ba que demuestre que todas las cartas han sido barajadas. 


Escribir : 


208 FOR T = 1 TO 52 

218 PRINT A(T); 

220 NEXT T 
«++ Y RUN. La pantalla debe mostrar todas las variables su- 
bindicadas puestas a cero. Para verlo más claramente, cam- 


biemos la línea 9W por : 


.MP=50 
>. Y RUN. 
Podría decirse que la microcomputadora se ha sacado dos car- 


tas de la manga. 


Inicialicemos de nuevo P a 52; eliminemos las líneas de prue- 
ba 288, 218 y 228, para dejar disponible una interesante su- 

brutina capaz de extraer de forma aleatoria los cartas de 

una baraja, que puede ser guardada en cinta para posteriores 


USOS. 


Pregunta : ¿Por qué se hace lenta la impresión de los números 
de las cartas hasta casi detenerse cuando se están generando 


las últimas cartas ? 


Respuesta : El generador de números al azar debe seguir ge- 
nerando números indices de variables subindicadas, hasta que 
llegue a aquél cuya variable subindicada no haya sido ajusta- 
da a cero. Casi al final de la baraja, la mayoría de los ele- 
mentos han sido igualados a cero. El generador de números al 
azar debe seguir generando números tan rápido como pueda 

para encontrar algún número "útil". Revisor una vez más los 
números de las cartas extraidas de la baraja. No existe du- 


plicidad. 


168. 


Por último, se puede utilizar la variable subindicada A(1), 
en el improbable caso de que se empleen las 26 variables 
alfabéticas. Sin embargo, hay que tener en cuenta que cada 
una de ellas requiere cuatro veces el espacio de memoria 
necesario para una letra del alfabeto. Borremos la memoria 


y escribamos : 


y 
[99] 


1% A(870) 

29 A(871) = 4 

38 Z = A(870) «+ A(871) 

46 PRINT A(870),A(871),Z 
. y RUN, 


Por supuesto, las respuestas son : 
3 Yo, cl 12 
Ahora probemos 


19 A(1990) = 3 
.. y RUN, 


El mensaje de error SORRY se debe a que el número mayor de 
índice de variable que puede utilizarse, es el 875 ( con 


memoria de 4K por supuesto). 


la Material Aprendido en el Capítulo 21 


VARIOS 


Conjuntos de varia- 
bles subindicadas. 
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SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 21 


RESPUESTA TIPO PARA EL EJERCICIO 21-1] : 


Hemos de agregar o cambiar las siguientes líneas : 


1% IN. "DE QUE COCHE QUIERE CONOCER LA CILINDRADA DEL 
MOTOR, EL COLOR Y EL MODELO; W 

138 FOR B = 241 TO 214 

135 READ A(B) 

149 NEXT B 


184 P. "PLACAS ¿f", "TAMAÑO DEL MOTOR", “CODIGO DEL COLOR", 
"MODELO" | 


216 P. W,A(W),A(W+108), A(U+208) 
498 DATA 24,28,16,2P,30,20,36,18, 24,29 


CAPITULO 22 


A rm a o 
2 


GRAFICAS AVANZADAS 


Volviendo al programa del punto rebotante supongamos que 
pretendemos visualizar, de alguna forma el instante en que 
el punto choca con la barrera, por ejemplo imprimiendo 
PING. 


Conocemos varias formas de declaración PRINT pero ninguna 


se ajusta al objetivo perseguido. 


Una nueva declaración, de especial utilidad en las gráficos 
es PRINT AT. Además en este capitulo estudiaremos otra de- 
claración, que aparece bajo la forma POINT(X,Y) y que per- 

mite detectar si cualquiera de los 6144 bloques gráficos, des 
está encendido o apagado. Estas dos nuevas declaraciones 
, Sumadas a las ya conocidas aumentan las posibilidades de 


: trabajo con gráficas. 


LA DECLARACION PRINT AT 


La declaración PRINT AT ££ ¿£ ££ permite comenzar la escri- 
tura de un texto, en el punto indicado 4 44 44. Pero 


¿dónde está este punto?. Escribamos : 


18 CLS 
50 PRINT AT 208, "HOLA 268, DONDE QUIERA QUE ESTES" 
«» Y RUN. 


Volviendo al capítulo 20 en la esquina superior izquierda 
de la hoja de trabajo del display de video, observaremos 


en letra muy pequeña las palabras "PRINT AT". 


BRL 


También puede verse una flecha que apunta hacia una serie 
de números. Además aparece una "x" minúscula, que se re- 
fiere evidentemente a las direcciones de la fila X y una 
"y" minúscula que hace referencia a las direcciones de la 
columna Y. Si se observa detenidomente, se pueden ver los 


64 números del "TAB" empezando por el cero. 


Los números PRINT AT empiezan en YM y van hasta 63 - en 

la primera línea. Luego continúan sobre la segunda línea 

a partir del número f£ 64 hasta el 127. La tercera linea 
comienza con el número 128, etc. Las divisiones PRINT AT 
son en realidad las mismus que para el TAB excepto que 
PRINT AT no se inicia nuevomente con Á en la segunda línea. 
PRINT AT E la posición 1823. 


La declaración PRINT AT, puede direccionar a voluntad cual 
quiera de las 1823 posiciones de impresión (no confundir 
con bloques luminosos). Se necesitan puntos y comas en la 
última línea (posiciones de la 96% a la 1823), para evitar 
el retorno del carro y evitar así que se mueva hacia arri- 


ba la "página de la pantalla". 


Á continuación veamos una aplicación de la declaración 
PRINT AT, repasando además el concepto de bucles anidados. 


Se trata de generar un reloj de 24 horas. Escribamos : 


19 CLS 

2% PRINT AT 497, "H M Ss" 

3D FOR H= HA TO 23 

49  FORM= TO 59 

59  FORS=BT0 59 

6% —— PRINTAT 47M,H; ":";M; ":";S 


76 FOR N = 1 TO 5BB:NEXT N 
89 NEXT S 

9% NEXT M 

190 NEXT H 22. 


.» Dias 


Por supuesto, la exactitud de este reloj depende de la 
precisión de la calibración. La TRS-80 NIVEL 1 ejecuta 
algo así como 500 bucles FOR-NEXT sencillos por segundo 
cuando la escritura del bucle es tal como la indicada en 
la linea 74 (línea declerativa múltiple). La manera de 
realizar ajustes en el reloj, será entonces incrementar 


o decrementar el valor 500. 


De cualquier manera no hay que perder de vista que el 
objetivo es estudiar la declaración PRINT AT; por lo 
tanto vamos a dirigirnos a la hoja de trabajo para la 
pantalla de video donde se aprecia que la dirección 478 
cae inmediatamente debajó de la 4%6. De esta manera se 
indica que los primeros números son las horas, los se- 


gundos los minutos y los terceros los segundos, 


Otro ejemplo que muestra el manejo de la declaración 
PRINT AT, es el siguiente programa, que sobrepone un for- 
mato de gráfica sobre la pantalla, que puede resultar 
útil para muchos usos. Vale la pena escribirlo y estudiar 


sus pasos. 


19 CLS 

29 K = 908 

30 F.X = 1 TO 59 
MP. ATK + X,"."; 


50 N.X:K = 964 

6% FOR Y = Y TO 13 

7Ó P. ATY*64 + Ri 
8% NEXT Y . 


109 P. AT24,"TITULO DE LA GRAFICA" 
158 F. N = M TO 14 

206 P. ATN*64, 14 - Ny; 

258 N.N 


(73 


30H F.X = 6 TO 5 

319  P.ATK+ 189% X,X; 
328 N.X 

ABÚ F.X = 6 TO 56 STEP 18 
AN APATK + Kn 
4248 N.X 

999 G.999 


NOTA : 


Podemos observar que en este programa aparece un punto y 
coma al final de las declaraciones PRINT AT. Ello es de- 
bido a que al ser impresa la última línea de la pantalla, 
se activoría el contaje consiguiéndose suprimir el retorno 


del carro mediante el punto y coma. 


EJERCICIO 22-1 : Referirse al programa de la pelota re- 


botante ; 


18 CLS 

20 FOR M= YB TO 127 
38 SET(M,9) 

46 SET(M, 47) 


59 NEXT M 
6% Y = 14 
7BD=1 


8% RESET (64,Y + 48 -D) 
9%) SET(64,Y) 

198 Y = Y +D 

119 IF Y = 48 THEN 139 
129 IF Y<>-1 THEN 89 
130 Y = Y - 2*D 

148 D = -D 

159 GOTO 98 

999 GOTO 999 


ES 


Usar declaraciones PRINT AT, para que la palabra "PING" 
aparezca cerca de la pelota cada vez que rebote, ya sea, 


en la barrera superior o inferior. 
LA DECLARACION POINT 


La declaración POINT(X,Y) permite conocer la situación lu- 
minosa, de un punto cualquiera de la pantalla. Si el punto 


+4 iluminado se obtendrá un 1 y en caso contrario un Y. 


La declaración POINT trabaja incluso en la modalidad de 


calculadora. Para comprobarlo escribomos : 
PRINT POINT (34,36) 


como la dirección (36,38) no se había iluminado con anterio- 
ridad, la respuesta ha sido M. Lo instrucción puede abre- 


viarse ; 
P.P. (30,3%) 


se obtiene la misma respuesta :.. 


Elaboremos a contirvación un ,--3rcma que nos permita seguir 


el rastro del punto luminoso. 


1OS= 1:N = 84 
2% IN. "DESEA ENCENDER EL BLOQUE (S/N)?";0 
38 CLS 
4% IF Q = Y GOTO 84 
5H SET(75, 26) 
6% GOTO 196 . 
88 RESET(75,28) 
100 IF POINT(75,28) = 1 P.AT 208,X;Y, "ESTA ENCENDIDO" 
26% IF POINT(75,28) = M P.AT 288,X;Y, "ESTA APAGADO" 
999 G. 999 
. y RUN. 


Os 


A la pregunta ¿desea encender el bloque (S/N)?, se puede 
responder con una S óá una N, también con SI ó NO á cual- 
quier palabra que empiece por S ó por N, ya que sólo estas 


variables tienen asignados los valores 1 y Bf. 


Se acaba de realizor una especie de encuesta de la situa- 
ción en que se halla un punto determinado de la pantalla. 
Mediante dos bucles anidados es posible rastrear toda la 
pantalla observando la situación de cada punto. Escriba- 
mos y ejecutemos el siguiente programa, observando su 
funcionamiento y deteniendo la ejecución temporalmente 


con la tecla (P) : 


1% REM *DEMOSTRACION DE LA DECLARACION GRAFICA POINT* 
20 P = 15:L = 119 


3% CLS 

46 P.ATS, "ESTA ES UNA DEMOSTRACION DE LA DECLARACION 
POINT--" ; 

5D P.AT5G,"X Le 


10% F.I = 1 TO P:SET(RND(113),RND(45) + 2):N.1 

118 F.X = YM TOLLL:F.Y = Y TO 47 

128 IF POINT(X,Y) = Y GOTO 169 

138  P.ATL,X;:P.ATL +4, Y; 

149 L=L +64 

158 6. 178 

168  SET(X,Y):RESET(X, Y) 

178 N.Y:N.X 

188 P.AT5 "LAS COORDENADAS DE LOS BLOQUES DE LAS GRAFICAS 
RIO 

196 P.ATO; 

20% G.209 


IRE 


Explicación del programa : 


La linea 1% es sólo una nota de identificación del programa. 


La línea 24 fija P a 15, (el número de "blancos" a ser pues- 
tos al azar sobre la pantalla por el bucle FOR-NEXT y el ge- 
nerador de números al azar de la linea 188). L se fija a 119, 
y es el punto de partida para imprimir las coordenadas y sus 
títulos en las líneas 130 y 140. 


La línea 3% borra la pantalla. 
Las líneas 44 y 58 usan PRINT AT pora imprimir los títulos. 


La línea 14% genera 15 direcciones y sitúa (set) 15 bloques 


luminosos al azar en la pantalla. 


La línea 119 utiliza dos bucles FOR-NEXT anidados para que 
pueda seguirse el rastro de cada uno de los puntos gráficos 


de la pantalla. 


La linea 124 comprueba si el punto que se está direccionando 


está apagado. Si es asi, se omite la impresión de la dirección 


(líneas 138 y 148). 


La línea 13% imprime los valores de X y de Y si consiguen 
pasar la prueba impuesta por la decloración POINT en la 
línea 1294, lo cual significo que el punto que se estaba 


probando no estaba apagado. 


La línea 14% incrementa la dirección de lo PRINT AT para que 
a línea 13% imprima las coordenadas adecuadas en la siguien- 
te ocasión en que haya de hacerlo. Agregando 64, la siguiente 
impresión se alineará directamente debajo del título y los 

“meros actuales. (Ver la hoja de trabajo para la pantalla de 


video). 


La línea 154 es una linea de salto sobre un reset. Sin esta 
línea, los bloques de luz distribuidos al azar serion borra- 
dos de la pantalla cuando pasa por ellos el bloque luminoso 


móvil. Se puede efectuar la comprobación eliminando la línea. 


7 


La línea 16% es la que permite al bloque luminoso móvil 
que se ilumine y apague. lei 
Cuando se llega a un bloque iluminado, el programa se sal- 


ta esta linea. 


La linea 179 sólamente cierra el bloque FOR-NEXT que se 


inició en la línea 1164. 


La línea 18% reemplaza el título que fue borrado por el 


proceso de rastreo del POINT. 


La línea 19% simplemente mueve el cursor a la posición Y, 
o lo que es lo mismo, lo manda a la parte superior izquier 


da de la pantalla. 


La linea 208 es un bucle sin fin, que mantiene la pantalla 
libre del READY y del apuntador. 


Si nos fijamos, el bloque móvil elimina el título original 
de la gráfica. También puede observarse que se necesitan 
dos pasadas para igualar el ancho de un carácter impreso. 
Se podía haber protegido el título, como se protegieron 


e 


los bloques, ó reducir la longitud vertical del rastreo. 


Material Aprendido en el Capítulo 22 


FUNCIONES GRÁFICAS 


POINT (X,Y) 
PRINT AT 


123 


SOLUCION_A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 22 


o 


RESPUESTA TIPO PARA EL EJERCICO 22-1 : 
Insertar las siguientes lineas : 


195 IF Y = 46 THEN 189 


115 IF Y = 1 THEN 184 

158 PRINT AT Y*64 +32, ". " 
16% G.9 

18% PRINT AT Y %64 + 32, "PING" 


198 6.94 


Observese que la línea 18% imprime el "PING" y la línea 


159 lo hace desaparecer imprimiendo espacios en su lugar. 


+9 


1 
! 


MINJORDENADOR 


ES 


PARTE € 


CAPITULO 23 


a a 0 a a 0 a 
WA 


DIAGRAMAS DE FLUJO 


Hasta ahora los programas que se han escrito han sido 
sencillos. Supongamos que queremos escribir un programa 
para jugar al ajedrez o a las cartas, que evalue alter- 
nativos de inversión complicadas, que lleve la contabi- 
lidad de un pequeño negocio o que realice cálculos de 
esfuerzos en un edificio. ¿Cómo empezariomos a escribir 


un programa complicado como cualquiera de estos? 


Una manera de elaborar un programa, es expresar gráfica- 
mente su lógica interna. El dibujo que utilizan los pro- 
gramadores se llama "diagrama de flujo". Los diagramas 
de flujo se utilizan tanto que se han establecido símbo- 
los convencionales para unificar criterios entre progra- 
madores. Existen muchos simbolos especializados en uso, 


pero examinaremos sólo los más comunes. 


BLOQUE DE PROCESO 

(Incluye procesos que 
la computadora realiza 
sin tomar decisiones). 


BLOQUE DE CONDICION 
(se ramifica en dife- 
rentes direcciones de- 
pendiendo de la de- 
cisión que tome) 


Cada punto de decisión formula una pregunta tal como 
¿ES A MAYOR QUE B? o cualquier otra. Las diferentes ramas 
se marcan con un SI ó NO. 


E) 


BLOQUE DE SALIDA DE DATOS 
(Contiene instrucciones de 
impresión de datos en panta- 
lla, impresora, cinta, etc.) 


BLOQUE DE ENTRADA DE DATOS 
(Contiene instrucciones de 
entrada de datos por tecla- 
do, cinta, etcc...) 


dl 


CONTINUACION 

(Contiene un número que 
corresponde a la continva- 
ción en otra página del 
programa). 


FLECHAS DE CONEXION 
(Sirven para la interco- 
nexión de los bloques). 


Los diagromos de flujo son de mucha utilidad en el diseño de 
programas cuando se dibujan ateniéndose a criterios de sen- 
cillez y claridad. Un diagrama de flujo desordenado es difí- 
cil de leer y generalmente no será de más utilidad que un 
listado de programa ordinario. Un buen diagrama de flujo es 
también útil para la "documentación", para dar una imagen rá- 


pida de cómo trabaja el programa cuando ya no se le recuerda. 


No existen reglas estrictas sobre la elaboración de los dia- 
gramas de flujo (como tampoco existen pora la realización de 
programas); cada programador utiliza una táctica particular. 
El diugroma de flujo es la herramienta que ayuda a sintetizar 
ideos con respecto a un programa. Un programa, por muy com- 
plicado que sea, se puede estructurar partiendo de un diagrama 
de flujo muy simple en el cual, cada bloque puede englobar 
otros diagramas de flujo, que se irán obteniendo de forma 


paulatina y sucesiva. 
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Veamos algunos ejemplos. Supongamos que queremos calificar 
Una prueba de <inco preguntas comparando cada una de las 
respuestas de los estudiantes con la respuesta enrrecta. 
Pondremos las respuestas correctas en una declaración DATA 
del programa, introduciendo las respuestas de los estudian 
tes a través del teclado. El progroma tiene que comparar 

e imprimir el % de respuestas correctas. Este procedimiento 
debe repetirse hasta que seon calificadas todas las pruebas 


de los estudiantes. 


£l diagrama de flujo podía ser : 


HaPanadd a Cada 
109 ARAMLHES LINA 26 
.. 


'Wañ224 Cuco vicaS 
MUDO A au ANTE 
CAE ARIAUR EIA is 
e 


DURDOWICA LA | 
RESUELTA Da 194 


ESHABAMICA Loa As 60 y 
”» 


EMCULNIME LA 
PLMPULL TA GUACARA 
haga 106 


¿ES Comm ra SS u AQHECAM LR) 6 A O 
LA MASA La A 
EUA? "CORMACI A 
LOA 178 


¿HAY añ LA 
Da LGA Id 7 
ALAS 2 


pare 


Este diagrama de flujo tiene tres bloques (rombos) de de- 
cisión. En el primero, la computadora decide si una res- 
puesta es correcto. En la segunda, lo computadora determi- 
na si han sido calificados todas las respuestas del exá- 
men de un estudiante (este bloque sería innecesario utili- 


zando un bucle FOR-NEXT), 
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La tercera, finaliza la ejecución cuando se hayan califi- 


cado todas las pruebas. 


EJERCICIO 23-1 : Utilizando el diagrama de flujo que aca- 
bamos de ver, escribir un programa que califique una prue- 


ba que contenga cinco respuestas. 


Otro ejemplo podria ser el cálculo de las ganancias de varias 


inversiones. Supongamos que tenemos las siguientes opciones : 


1 CERTIFICADO DE DEPOSITO 

2 CUENTA DE AHORROS BANCARIA 
3 LA UNION DE CREDITO 

4 PRESTAMO HIPOTECARIO: 


El programa principal (o de control) seleccionará una de 
estas cuatro opciones utilizando una pregunta de entrada, 
ejecutando el subprograma correcto e imprimiendo la res- 


puesta. El diagrama de flujo podría ser : 
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Veamos algunos ejemplos. Supongamos que queremos calificar 
uno pruebyg do “ino preguntas commarando cado una de las 
respuestas de los estudiantes con la respuesta iia: 
Pondremos las respuestas correctas en una declaración DATA 
del progroma, introduciendo las respuestas de los estudian 
tes a través del teclado. El progroma tiene que comparar 
e imprimir el % de respuestos correctas. Este procedimiento 
debe repetirse hasta que sean calificadas todas las pruebas 


de los estudiantes. 


£l diogrema de flujo podía ser : 


ARCANGEL 
10% ARAULMES LINEAS E6 


e 


o 


wanz24 CCO vidas 
DEMMDO A A ENTE 
CO ALUIAUA EIA tó 
$ 


Du OOMICA LA | 
eisrursta he 129 


EDIC Ar] 
2 2) 
tOCuisIRt LA 
PAAPUEGLA CUAATIA 
| hera 106 


| ' 
¡ELM CONECTA 


LA MESPULRIS Uat 
EIA 


¿MAY nd Li A 
De 14 rumamidá? 
AS 


TES 


ES 


Este diagrama de flujo tiene tres bloques (rombos) de de- 
cisión. En el primero, la computadora decide si una res- 
puesta es correcta. En la segunda, la computadora determi- 
na si han sido calificados todas las respuestas del exá- 
men de un estudiante (este bloque sería innecesario utili- 


zando un bucle FOR-NEXT). 
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La tercera, finaliza la ejecución cuando se hayan califi- 


cado.todas las pruebas. 


EJERCICIO 23-1 : Utilizando el diagrama de flujo que aca- 
bamos de ver, escribir un programa que califique una prue- 


ba que contenga cinco respuestos. 


Otro ejemplo podría ser el cálculo de las ganancias de varias 


inversiones. Supongamos que tenemos las siguientes opciones : 


1 CERTIFICADO DE DEPOSITO 

2 CUENTA DE AHORROS BANCARIA 
3 LA UNION DE CREDITO 

4 PRESTAMO HIPOTECARIO 


El programa principal (o de control) seleccionará una de 
estas cuatro opciones utilizando una pregunta de entrada, 
ejecutando el subprograma correcto e imprimiendo la res- 


puesta. El diagrama de flujo podría ser : 
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Se podierm también sacar diogromaes por separado de algunos 
de los módulos. El programa de certificado de depósito, por 
ejemplo, tendría que incluir la tasa de interés, el valor del 


depósito y el número de años. 


EJERCICIO 23-2 : Escribir un programa basándose en el dia- 
groma de flujo anterior de manera que calcule las ganancias 
en cuentas de ahorro bancarias pagando intereses simples. 

El resto de subprogramas (CERTIFICADO DE DEPOSITO, UNION DE 
CREDITO y PRESTAMO HIPOTECARIO), no es necesario escribirlos, 
y se simulan con un retardo de 4 segundos, después del cual 
se comienza introduciendo una nuevo opción. Para aclarar me- 
jor este punto diremos que las flechas que salen de estos 
módulos, en lugar de dirigirse al módulo "IMPRIME LAS GANAN- 
CIAS SOBRE LA INVERSION" se dirigen al de "INTRODUZCA LA 
OPCION". e 


EJERCICIO 23-3 : Escoger un programa de algún capítulo 


anterior y dibujar su diagrama de flujo. 


Materiol aprendido en el Capitulo 23 


VARIOS 


Diagramas de Flujo 
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SOLUCION A LU5 EJERCICIOS PROPUESTOS EN EL CAPITULO-23 -- 


RESPUESTA TIPO PARA EL EJERCICIO 23-1 : 


1% REM +* EVALUADOR DE EXAMENES * 

2% CLS 

34 P. "ESTE ES UN PROGRAMA EVALUADOR DE EXAMENES" 

49 P. "ESCRIBA LAS CINCO RESPUESTAS DEL ESTUDIANTE 
SEGUN SE LE VAYAN SOLICITANDO" 

5% RESTORE 

GN =8B 

76 FOR 1 = 1705 

8% PRINT "RESPUESTA NUMERO"; 1; 

98 INPUT A 

198 READ B 

114 PRINT A,B; 

12% IF A = B THEN PRINT "CORRECTO":N = N + 1 

136 PRINT 

1448 NEXT 1 

159 PRINT N; "CORRECTAS LAS CINCO"; 

168 PRINT N/5 * 198; "%" 

176 P. "¿HAY MAS EXAMENES POR CALIFICAR?"; 

188 IN. " 1=SI, 2 =NO";Zz 

19% IF Z = 1 GOTO 58 

206 DATA 65,23,17,56,39 


u 


RESPUESTA TIPO PARA EL EJERCICIO 23-2 : 


1% REM * RESPUESTA TIPO 23-2 * 

198 CLS 

114 P.:P 

128 P. "ESCRIBA EL NUMERO DE ALGUNA DE LAS SIGUIENTES IN- 
VERSIONES” 

138 P. 
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148 P. " 1 - CERTIFICADO DE DEPOSITO" 
158 P. " 2 - CUENTA DE AHORROS BANCARIA" 
168 P. " 3 - UNION DE CREDITO" 
178 P. " 4 - PRESTAMO HIPOTECARIO" 
180 P.: IN. "INVERSION";F 
19 ON F GOTO 1008, 2004, 3000, 4008 
26% GOTO 188: REM SE UTILIZARA SI EL NUMERO NO ESTA 

ENTRE 1 Y 4 
1406 REM “EL PROGRAMA DE CERTIFICADO DE DEPOSITO VA AQUÍ * 
1818 P. " TIENE QUE ESCRIBIRSE EL PROGRAMA DE C.D.” 
182% GOS. 19048:G.100 
260% REM *PROGRAMA DE CUENTA DE AHORRO BANCARIA * 
2418 CLS:P.:P "ESTA RUTINA CALCULA EL INTERES SIMPLE 

SOBRE" 
24246 P."LA CANTIDAD MANTENIDA EN DEPOSITO DURANTE UN 

PERIODO ESPECIFICADO" 

2839 P. "UTILIZANDO UN PORCENTAJE DE INTERES ESPECIFICADO": 

P. 
2446 P.:IN. "CUAL ES EL DEPOSITO (EN DOLARES)";P 
245% IN. "CUANTO TIEMPO LO GUARDARA (EN DIAS)";D 
24690 IN. "QUE TASA DE INTERES ESPERA (EN %)"¿R 
2976 CLS:P.:P.:P "PARA UN CAPITAL INICIAL DE $";P; 

"A UNA" 

2486 P. "TASA DE";R; "% POR";D; "DIAS, EL INTERES" 
2896 P. "RESULTO SER"; 
2108 REM *INTERES =(X%/YR)/(DIAS/YR) * DIAS* PRINCIPIO* 
2200 1 = R/198/365 * D*P 
O 
2469 END 
3060 REM *EL PROGRAMA DE LA UNION DE CREDITO VA AQUI* 
od A. MEL PROCRAMA DC LA U.S. NECESITA FSCRTBIRSE" 
302% GOS. 10004:G.108 | 
4908 REM* EL PROGRAMA DE PRESTAMO HIPOTECARIO VA AQUI * 
4018 P. "EL PROGRAMA DE P.H. NECESITA ESCRIBIRSE AQUI" 
AD248 GOS.190P0:G.100 
19006 F. 1 = 1 TO 2098:N.1:RET. 18/( 


CAPITULO 24 


=E === === === 


LOGICA Y/O 


En matemáticas se estudian los denominados funciones lógi- 
cas. 
Un ejemplo elemental ilustrará de formo ra y sencilla 


en qué consisten dichos funciones, 


Supongamos que la vaca de las figuras, quiere pasar del pas- 
tizal 4£ 1 al pastizal 44 2. Para que pueda pasar, tiene 

que encontrar la puerta Á abierta, "y" la B abierta "y" la 

C también abierta. Si cualquiera de ellas se encuentra ce- 


rrada, la vaca no podrá pasar. 


PASTIZAL 441 PASTIZAL 44 2 


gir] PUERTA A PUERTA B 


FIGURA 1 


A este modo de operar corresponde la llamada "función lógica Y". 


En la figura 2, la vaca quiere pasar del pastizal 3 al 4, pe- 


ro las puertas están colocadas de manera distinta a las ante- 


riores. Para que la vaca pueda pasar, "o" la puerta X está 
abierta, "o" la Y, "o" laz, "o" las 3. "o" dós cualesquiera 
de ellas. 


PASTIZAL 4% 3 PASTIZAL 44 4 


dí PUERTA X se 
FIGURA 2 


a PUERTA Y 


PUERTA Z 
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Esta es la "función lógica O". 


En matemáticas se usa el símbolo + (más) de la suma para la 
"función lógica o" y el signo X (por de la multiplicación) 
para la"función lógica y". En nuestro caso entonces tendremos 


que utilizar el * (asterisco) pora la "función lógica y". 


A pesar de que al principio el concepto de "simbolos lógicos" 
puede traer algunas dificultades, su uso es sumamente senci- 


llo. Escribamos : 


1OS = 1:N = 8 

26 IN. "¿ESTA ABIERTA LA PUERTA A?";A 

39 IN. "¿ESTA ABIERTA LA PUERTA B?";B 

49 IN. "¿ESTA ABIERTA LA PUERTA C?";C 

50 PRINT 

68 IF (A =1) * (B =1) * (C = 1) THEN 109 

7Ó P. "LA VACA ESTA SITUADA EN EL PASTIZAL 4% 1" 


8% END 
10% P. "TODAS LAS PUERTAS ESTAN ABIERTAS. LA VACA PUEDE 
PASAR" 
. y RUN, 


Las respuestas que se deben dar a las preguntas son (S/N) ó 
(SI/NO). Pueden efectuarse varias ejecuciones para observar 


cómo trabaja el Y lógico de la línea 68. 


Explicación del programa : 


La línea 18 inicioliza los velores de S y de N en 1 y $ 


respectivomente. 


Las líneas 24, 30 y 44 dan entrada a las posiciones de loas 
Gs, que pueden estar : abiertas (definidas como igual 
a 1), o cerradas (definidas como f). También se podían haber 
asignado otros valores distintos de M y 1 en la línea 1% so- 


metiéndolos a la opercción lógica en la línea 68H. 
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La línea 69 podriamos decir que es la llave. Podemos leer 
literalmente, "si la puerto A está abierta, y la puerta 
B está abierta y la puerta C está abierta, entonces leer 
la línea 148; si cualquiero de los puertas está cerrada, 


leer la línea 78 


Un ejemplo en electricidad de lógica "y/o" sería la cone- 
xión de una bateria con una lómpora a través de unos in- 
terruptores. Si los interruptores están en serie, hemos 
construido una "función lógica y". Si los interruptores 


están en paralelo se trata de una "función lógica o". 


Si nos fijamos en la línea 68, observaremos que existen 
paréntesis que encierran el signo =. En general, podiamos 
haber utilizado simbolos >,< ,»=, <=. 

Anteriormente hemos usado también estos simbolos para efec 
tuar operaciones, o tomar decisiones pero nunca los habia- 
mos dispuesto entre paréntesis de esta manera. Estos pa- 
réntesis con simbolos interiores en un determinado programa, 
son indicativos de que se está utilizando lógica matemática 


en el programa. 


EJERCICIO 24-1 : Usando el programa anterior como modelo, 
y el "0" lógico, visto en la figura 2, escribir un progra- 
ma que determine la situación de lo vaca en función del esta- 


do de las puertas X, Y y Z. 
VARIACIONES LOGICAS 


He aquí un programa que utiliza el signo > en lugar del 
signo = dentro de una prueba lógica. El estudiante pasa 

si tiene una calificación final superior a 69 ó una cali- 
ficación de medio curso superior a 7/4 y calificación de los 
trabajos prácticos superior a 75. Escribir el programa y 


ejecutarlo vorias veces para observar cómo trabajan las 
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pruebas O lógica e Y lógica en la misma línea (48) del 


programa. 


1% INPUT "CALIFICACION FINAL";F 

28 INPUT "CALIFICACION DE MEDIO CURSO";M 

34 INPUT "CALIFICACION DE TRABAJOS PRACTICOS";H 
48 IF (F>6P) + ((M>70)* (H>75)) THEN 79 

56 PRINT "SUSPENDIDO" 

68 END 

7% PRINT "APROBADO" 


Este programa es una muestra de la utilidod y posibilidades 
del uso de las funciones lógicas. Los números de las cali- 
ficaciones reales, por supuesto, pueden ser fijados a cual- 


quier nivel, 


El siguiente programa, a titulo de ejemplo hace uso de 
signos igual, mayor que y menor que. Determina si los dos 
números que se han introducido en la computadora son ambos 


positivos, ambos negativos o tienen signos controrios. 


Anclizar el progroma, observando los paréntesis. Hay que pen- 
sar de forma "lógica" para entender su ejecución. Escriba- 


mos y ejecutemos ; 


148 INPUT "EL PRIMER NUMERO ES";X 
2% INPUT "EL SEGUNDO NUMERO ES”; Y 
30 IF (X>=0) * (Y >=0) THEN 79 
48 1F (X<GB) * (Y<H) THEN 98 
5 PRINT "SIGNOS OPUESTOS" 

6% END 
7% PRINT "AMBOS POSITIVOS" 
8% END 
948 PRINT "AMBOS NEGATIVOS" 


io 


Vecmos otro ejemplo que utiliza declaraciones gráficas. 
Intentemos descifrar qué función realiza la línea 4% antes 


de escribir y ejecutar el programa. 
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24 FOR X = $ TO 127 

3% FOR Y = H TO 47 

49 1F (X=64) * (Y))=24) THEN 69 
58 SET(X,Y) 

6% NEXT Y 

7% NEXT X 

99 GOTO 99 


¿Qué sucede si se reemplaza el asterisco ( *) de la línea 
44 por un (+)? Después de razonar a qué resultados nos 
debe conducir la modificación realizada, podemos ejecutarlo 


para comprobar la veracidad de nuestras conclusiones. 


Veamos un ejemplo más dé aplicación de utilización de fun- 


ciones lógicas aplicado al dibujo de líneas. Escribamos y 


ejecutemos : 
1% CLS 
2% FOR X = Y TO 127 
36 FOR Y = M TO 47 


46 1F (X = 64) + (Y = 24) THEN 68 
5% SET (X,Y) 

6% NEXT Y 

7% NEXT X 

99 GOTO 99 


En este ejercicio se puede adivinar lo que sucedería si 
se cambiase el + (0) por un *(y) en la linea 48. Después 
de pensar el resultado ejecutemos el programa con el cam- 


bio a que hemos hecho referencia. 


Ex 


Usando la función INT se puede crear un tablero a cuadros. 


a e A A 


El razonamiento es el siguiente : 


En la dimensión horizontal, INT (X/16) * 16 - X es igual o 
Í cuando X sea igual a M, 16, 32, 48, 64, 88, 96 y 112. 


En la dimensión vertical, INT (Y/8) * 8 - Y será cero 
cuando Y sea igual a HM,8,16,24,32,40 y 48. 


Reemplacemos la línea 4% por : 
49 IF ((INT(X/16) * 16-X)=8) + ((INT(Y/6) * 6-Y)=8) THEN 60 


+ Y RUN. El resultado es un tablero con cuadros de 8 por 


EJERCICIO 24-2 : Escribir de nuevo la líneo 4% del progiam: 
que dibuja el tablero a cuadros para producir un tablero 


cuadros negro sobre blanco en lugar de blanco sobre negro. 


Material Aprendido en el Capítulo 24 


VARIOS 


* usado como simbo.. 
lógico Y. 


+ usado como simbo! 
lógico O. 
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SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 24 


RESPUESTA TIPO AL EJERCICIO 24-1 : 


Sólo se requieren cambios en dos lineas : 


66 IF (A=1) + (B=1) + (C=1) THEN 109 
10% P. "ESTA ABIERTA ALGUNA PUERTA. LA VACA PUEDE PASAR" 


La línea 6% dice "si la puerta A está abierta, O la puerta 


B está abierta, O la puerta € está abierta, ir a 140". 
RESPUESTA TIPO AL EJERCICIO 24-2 : 


49 IF ((INT(X/16)* 16-X)<> 9)* ((INT(Y/8) +8-Y)<> B) THEN 69 


2% FOR X = 1 TO 126 


1 


380 FOR Y = 1 TO 46 


Se ha realizado el cambio de las líneas 284 y 36 para obtener 


una imagen diferente. 
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CAPITULO 25 


a a a o o a a o 


SUBRUTINAS AVANZADAS 


En el capitulo 15 se tocó el tema de las subrutinas. Inclu- 
so “llamamos” a una para practicar con ellas. Luego volvi- 
mos a escribir una subrutino como parte del programa prin- 
cipal y los resultados fueron los mismos. Después de estas 
consideraciones podriamos preguntarnos : ¿qué tienen enton- 
ces de especial los subrutinas? El capitulo 25 tratará fun- 


damentalmente de dar respuesta a esta pregunta. 


Para refrescar la memoria : Una subrutina es una porte de 

un progroma que la computadora ignora hasta que una declara- 
ción GOSUB la manda llamar. Después de ejecutar la subrutina, 
la computadora devuelve el control del programa al punto 
inmediato-siguiente de la declaración COSUB (debido al RETUN 
de la última linea de la subrutina). De esta forma puede 
llamarse tantas veces como se quiera a una subrutina desde 

el progroma principal, ya que el control del programa regresa 


siempre al punto de donde partió. 


Un ejemplo de utilización de subrutina es el caso de extrac- 
ción de una raiz cuadrada en un determinado proceso de cólcu- 
lo. Muchas formas de BASIC (como el BASIC NIVEL 11), permiten 
calcular VX Vadado simplemente la declaración Y=SOR(X). El 
nivel 1 no posee esta cualidad y por ello es necesario agre- 
gar un programa relativamente simple para lograr la misma 


cosa, O sega, una subrutina. 


La mayoría de los progromas de procesos de cálculo requieren 
el uso de funciones trigonométricas o logaritmicas; por lo 
tanto se necesitará echar mano de subrutinas, en el caso de 


que estas funciones no estén contenidas directamente en el 


BASIC que se esté vtilizondo. 
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La mejor forma de entender todo lo que se ha estado dicien- 


do es mediante un ejemplo, 


Supongemos que se quiere hallar la hipotenusa de un trión- 
gulo rectángulo, conociendo los dos catetos (A=3,B=4). El 
teorema de Pitágoros dice : L = a + Br Se pretende es- 
cribir un programa que calcule la hipotenusa para dos valo- 


res determinados de los catetos. 


A= 3 


Si tuviéramos implementada la función "SQR", correspondien- 
te a la raíz cuadrada, cosa que no sucede en el BASIC I, 


el programa podría ser : 


148 REM* SOLUCION A LA RAIZ CUADRADA CON SUBRUTINA * 
26 IN. "LA LONGITUD DEL LADO A=";A 

38 IN. "LA LONGITUD DEL LADO B=";B 

46 L = SOR(A *A+B* B) 

A iS E 

66 P. A,B,L 


Si se escribe y ejecuta el programa, el ordenador responde 


con : 


WHAT? 
46 L = S?0R (A*A + B*B) 


Eso indica que el ordenador no reconoce SOR por lo que se 
deberá llamar a la subrutina raiz cuodrada del apartado 62 
(LIBRERIA DE FUNCIONES) para que el programa sea ejecuta- 
ble. 


LAR 


Vayamos al apartado 62 y localicemos la subrutina de la 
raiz cuadrada. Existen tres cosas que se deben tener en 


cuenta cuando se utiliza una llamada a subrutina 


1. ¿Cuál es la variable de entrada? 

2. ¿Cuál es la variable de salida? 

3. ¿Qué otras variables se utilizan por la subrutina para 
cálculos internos? Debe ponerse especial cuidado en 
no usar estas variables internos a la subrutina, en 


el programa principal. 


Una vez escrita la subrutina raiz cuadrada correctamente, e- 


fectuemos los siguientes cambios en el programa residente : 


4 X = AFA + B* B:G0SUB 38838 
45 L = Y 
+++ Y RUN. La computadora, después de una pausa, imprime la 


respuesta : 


A B E 
3 á 5 


En el supuesto de que la ejecución no haya sido la indicada, 


revisemos el programa principal y la subrutina. 


Observaciones : 


»La línea 30008, es un bloque de protección que evita que la 
computadora ejecute la subrutina después de completar el pro- 
groma principal. Siempre se debe colocar esta línea cuando 


se utilicen subrutinas. 


+. El motivo por el cual se envía el control a la linea 34834 
se debe a que loas lineos anteriores (36818 y 38828), son 
partes inoperantes del programa; sólo son etiquetas de iden- 


tificación. 


06 


. La línea 44 tiene dos declaraciones diferentes. X= ATA + 
+ B *B efectúa el cálculo previo a la extracción de la raíz 
cuadrada asignándole la letra X, en concordancia con la 
subrutina. El GOSUB 3608389 calcula la raiz. 


. La línea 45 asigna a la hipotenusa L el valor de la sa- 
lida de la subrutina Y. Esta linea se podia haber elimi- 
nado utilizando la Y como nombre pora la hipotenusa, esto 
significaría combiar las declaraciones PRINT de las lineas 


50 y 6%, sustituyendo Y por L. 


Antes de continvar, puede resultar interesante guardar la 
subrutina de la raíz cuadrada en un casette para evitar te- 
ner que escribirla de nuevo. Cada programador, puede decidir 
la conveniencia de guardar todas las subrutinos de forma 
seporada, todas juntas, ó en distintas combinaciones, lo cual 
permitirá cargar sólo aquellas que se necesiten para un pro- 
pósito dado. 


$“ 


Aprovechando que tenemos cargada la subrutina "roíz cuadrada", 
vamos a mostror un ejempio práctico para dibujar una serie de 


circunferencios u óvalos concéntricos. Escribamos y ejecute- 


mos : 
19 CLS 
20 FOR R = 2 TO 22 STEP 4 
30 FORA = -R TO R 


48 X =R* R-A *A:GOSUB 208238: Y=INT(Y-.5) 
50 SET(A+64, 23-Y) 

$8 SET(A+60, 23+Y) 

7% NEXT A 

88 NEXT R 

98 GOTO 94 


192 


Explicación : 


Como se sabe, la ecuación de lu-circonfererncio enel plano 
con los ejes centrados es ME + ye Ss r?, de donde ya e? - e 
Los abcisas están representadas en el programa por la letra 
Á que varía en cada circunferencia del valor -R al R. Las 
ordenadas están representadas por la letra Y y su valor se 
redondea con la función INT. A la suma de cuadrados RÍ - E 


se le asigna la letra X (no confundirla con las abcisas), 


La línea 19 nos proporciona una pantalla limpia para empezar 


a trabajar. 


La línea 20 crea un bucle que incrementa el radio R de 2 a 


22 en incrementos de 4, 


La línea 3% crea un bucle "anidado" que incrementa la abcisa 


de nuestra gráfica de -R a R. 


La línea 49 calcula el valor X, extrae la raíz cuadrada y 


redondea la ordenada a valores enteros. 


Las líneas 5% y 68 centran al círculo sobre la pantalla y 
lo "dibujan". La linea 58 da origen a la parte inferior del 


círculo, y la 6% a la porte inferior. 


Las líneas 78, 88 y 9 nos son ya familiares. 


NOTA : 


En realidad las circunferencias son óvalos debido a que los 
puntos son rectángulos en lugar de cuadrados. Para obtener 
un programa que dibujara circunferencias habría que efec- 
tuar alguna modificación. Se recomienda intentar buscar 


las soluciones por uno mismo. 


¿9%. 


SALTO ENTRE SUBRUTINAS 


Hasta aqui, hemos hecho uso de la declaración GOSUB en, el 
programa principal pora llamar a una subrutina, pero tam- 
bién se pueden hacer llamadas, de una subrutina a otra, 
Supongamos que desecmos calcular q, Esto es 3 multiplica- 
do por sí mismo 11 veces. Podría hacerse el cálculo multi- 


plicarido sucesivos veces 33 “GAITA A NAS 


11.4, di 


pero, ¿y si lo que se quisiero calcular fuera 3 
que es lo mismo ¿ 3 elevado a la potencia 11.4?. La simple 
multiplicación no podria resolver este problema. La solución 


a esta cuestión se encuentra en la subrutina exponencial. 


La subrutina exponencial, en realidad, llama a otras dos su- 
brutinas; una para los logaritmos y otra para las exponencia- 
les. El método deriva de las siguientes relaciones matemáti- 
cos : | 


Y 
o e eL 99n X Pp Y* lognX 


Con la subrutina escrita, todo lo que hemos de:hacer es su- 
ministrorle los valores de X e Y, en este caso 3 y 11,4, y 


ella se encarga de obtener la respuesta final. 


En el apartado 62 puede encontrarse la subrutina de Expo- 
nenciación. Escribirla cuidadosamente añadiendo el programa 


principal : 


14 PRINT "OBTENCION DE X ELEVADO A LA POTENCIA Y" 
2% INPUT "X= ";X 
3% INPUT "Y = "¡Y 
4% GOSUB 36128 
5% PRINT "LA RESPUESTA ES";P 
6% GOTO 19 
... Y RUN, 


149. 


(Usar la tecla | BREAK len caso de querer salir del programa). 


Explicación : 
Las lineas 28 y 3% porporcionan valores para X e Y, 


La línea 46 transfiere el control del programa principal a 


la subrutina de exponenciación. 


La linea 30144 llama a la subrutina LOG para obtener el lo- 


garitmo de X. 


La linea 34288 devuelve L= LOG(X) a la subrutina de exponen- 
ciación. (Obsérvese que el control se posa a la declaración 
inmediatamente posterior a la orden GOSUB cún cuando. la de- 
claroción se encuentre sobre la misma línea como en este 
caso). 


La línea 30144 llama a la subrutina de expanenciación para 


+ 
calcular L 


Finalmente, la línea 30154 ajusta la magnitud de P y devuel- 
ve el valor calculado de P = o al programa principal. La 


línea 5% manda imprimir el valor obtenido. 


Observar que la variable X de entrado, combia de valor en 
la subrutina; por tanto si se necesitara su valor más ade- 
lante, no se podría hacer referencia a dicho valor, porque 
ya no es el mismo. La manera de resolver este problema seria 
osignar a otra variable el mismo valor, por ejemplo añedien- 


do la línea 35 : 
335S=X 


Al agregar esta linea hay que tener en cuenta que el valor 
de X quedo ahora almacenado en la variable S, aue guarda di- 
cho valor para uso posterior. Por todo lo dicho, conviene 
tener cuidado con los subrutinas gue cambian el valor de 


la variable de entrada. 


Z¿ao, 


Ótro ejemplo : Se desea encontrar un árbol de Navidad de 

28 pies de alto. Esta tarea puede facilitarse haciendo uso de 
la trigonometría. En efecto, puede calcularse la altura H 

del árbol de la figura, conociendo la distencia D y el ángulo 


A. 


q so e 
PAIPA O AA X 


La relación que puede establecerse es H = D * TAN(A) 


TANOO es una de las subrutinas disponiblesí ver APARTADO 62). 
Esta subrutina es una de las más largas debido a que contiene 


a otras dos, el seno y el coseno. 


Después de teclear NEW, escribamos la subrutina tangente 
(pasos 3B3BY a 39455). Asegurémonos de agregar un bloque pro- 
tector END: 3P00%4 END. 


Escribamos a continuación el programa principal : 


16 IN. "A QUE DISTANCIA SE ENCUENTRA LA BASE DEL ARBOL?";D 
2% IN. "QUE ANGULO EXISTE ENTRE LA PUNTA Y LA BASE DEL 
ARBOL ?";A 
30 X = A:GOSUB 38328 
49 H = INT(D* Y + .5) 
59 IF H = 28 THEN 88 
6% P. "HAY QUE BUSCAR OTRO ARBOL.ESTE TIENE";H; "PIES DE ALTO" 
7% GOTO 18 
89 P. "SE PUEDE CORTAR EL ARBOL" 


$ 


Ejecutar el programa usando distintos valores antes de probar 


con D= 16 y A = Ó 


Notas sobre el funcionamiento del programa : 


La línea 3% da a X el valor del ángulo A. Esto se debe a que 
la subrutina necesita una entrada X. En esta misma linea se 
manda el control a la subrutina, que calcula el valor de la 


Y 


tangente con variable de salida Y. 


La linea 44 calculo la altura H que es igual a D por UD 
veces la tangente del ángulo), y luego, redondea la respues- 


ta al entero más cercano, 


La linea 58, averigua si hemos encontrado nuestro árbol; si 
lo hemos hecho, el control del programa pasa a la linea 8f, 
donde se imprime un mensaje adecuado. Si no es asi, la línea 
6% dice que se busque un nuevo árbol, y la línea 74 vuelve 


a empezar el programa. 


También existen más formas de resolver el problema, Si se 
elige una distancia fija a la base, por ejemplo 12 pies, 
se puede enfocar el problema tratando de encontrar el ángu- 


lo necesario para que la altura del árbol sea de 28 pies. 


De la fórmula anterior se deduce 
H = D* TAN(A); TAN(A) = H/D 


De lo que se trata en definitiva es de hallar el arco-tangen- 
te de A, que también se encuentra en la libreria de funcio- 


nes (APARTADO 62). 


sm 


EJERCICIO: 20-102 0 € 


das la altura del árbol y su distancia al mismo y que calcu- 


cribir un programa que acepte como entra- 


le el ángulo correspondiente. Usar la subrutina arcotangen- 


te del APARTADO 62. 


JERCICIO 25-2 : Escribir un progroma que realice la gráfico 
del SENO(X), donde X toma valores de O a 3602 en incrementos 


de un grado. 202 


Referirse al programa de óvalos concéntricos para darse 
idea de cómo poner los puntos sobre la pantalla. Recordar 
que el margen de X y de SENO(X) deberán ajustarse para que 


quepan en la pantalla de 128 por 48 posiciones. 
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VARIOS 


Subrutinas. 


1 


"Variables simulados' 


SUBRUTINAS DISPONIBLES EN EL APARTADO 62 


Raiz cuadrado. 

Exponenciación. 

Logaritmos (Natural y Común). 
Exponencial (Exponentes de e). 
Tangente. 

Coseno., 

Seno. 

Árco coseno. 

Árco seno. 

Arco tangente. 


Signo. 


A) 
Ly 
1) 


SOLUCION A LOS EJERCICIOS PROPUESTOS EN EL CAPITULO 25 
FF EN EL GAPATULO 25 


RESPUESTA TIPO PARA EL EJERCICIO 25=1--; 


1% INPUT "DISTANCIA DESDE EL ARBOL";D 

2% INPUT "ALTURA DEL ARBOL QUE SE BUSCA"; H 

38 X = H/D:GOSUB 38664 

446 PRINT "EL ANGULO REQUERIDO ES";C; "GRADOS", 


RESPUESTA TIPO PARA EL EJERCICIO 25-2 ; 


1 CLS 

10 FOR A: = A TO 364 
24 X = A:GOSUB 38378 
MY =-Y*2 

4% SET (A/3, Y + 22) 
5% NEXT A 

6% GOTO 1 
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CAPITULO 26 


e e o 0 a o ci a 
A a a o o a 


PROGRAMAS CORRECTORES 


Hasta ahora, se conocen tres mensajes de error (WHAT?, 

HOW? y SORRY), que informan de que algo anda mal. Pero no 
siempre es fácil detectar dónde se ha cometido el error 
exactamente. Se evitan errores actuando de forma sistemática 
pero incluso los mejores programadores los cometen. Sin em- 


bargo, existen formas para localizarlos con rapidez. 


El primer paso del proceso de "corrección" es aislar el e- 


rror del programa, que puede ser ; 


1) Un problema del Hardware. 
2) Un problema del Software. 


ERRORES DEL HARDWARE 


Comenzando con la posibilidad más remota - ¿está trabajando 
la computadora de forma adecuada?. Lo más probable es que la 
computadora esté trabajando bien. Existen varias formas de 


overiguarlo. 


Escribamos : 
PRINT MEM 


Si no existe progroma alguno cargado dentro de la memoria, la 
respuesta debe ser, 

3583 
Si existe un programa cargado, la respuesta será algún valor 


menor que 3583, 


Si la respuesta es mayor que 3583 (suponiendo, claro está, 
que no se tiene agregada más RAM), o si la respuesta es un 


número negativo, puede haber problemas de hardware. 


ADA 


Entre las soluciones posibles para cualquiera de los casos 
anteriores está la siguiente : Apagar la computadora, es- 
perar un minuto y volverla a encender, Una vez encendida, 
teclear NEW y repetir la prueba P.M. anterior. Si los resul- 
tados que se obtienen son los mismos, existe un fallo en la 
memoria RAM ó ROM, lo cual requiere la actuación del servi- 


cio de mantenimiento y reparación autorizados. 


Una comprobación muy útil puede ser la efectuada por el 


programa siguiente : 


16 F. X = 1 TO 876:A(X) = X:N.X:F.Y = 1 TO 876:P.A(Y): 
28 1F AY) - A(Y -1) € > 1P. "MALO" 
30 IN. Y 


Escribamos el progroma haciendo A(M) = VU y ejecutémoslo. 


Después de cerca de diez minutos de espera para generar el 


procedimiento el monitor deberá mostrar 


1234567809 (etc., hasta 876) 
Si aparece la palabra "MALO" en la pontalla, se ha encontrado 
el problema. | 
Puede ieept td interesante guardar este programa de prueba 


en la cinta casette. 


Dentro de los errores del hardware, está el posible fallo de 
la pantalla de video. La pantalla de video es similar a un 
televisor. Tiene controles pora el brillo, contraste, sincro- 
nización horizontal y vertical, etc... En caso de desajuste, 
existen unos controles internos a la computadora, pero es 
necesario conocerlos muy bien porque un error podria dete- 


riorar y dejar fuera de servicio los circuitos integrados. 


A veces existen problemas en la grabación con casette. Cuan- 


do se presenta un caso de este tipo, conviene repasar 
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¿Está todo conectado? ¿Correctamente? ¿Firmemente?, 

¿Están bien las baterías de la grabadora? (si las tiene) 
3. ¿Se ha evitado la retroalimentación a tierra de la graba- 

dora, discutida en el capitulo de grabación de casettes? 
4. ¿Se ha fijado a un nivel adecuada el control de volumen?. 
5. ¿Está el control del tono de la grabadora en "agudos"?, 


6. ¿Se están utilizando instrucciones "legales'"?, 


Si no se ha encontrado el problema en el hardware, entonces 
lo más probable es que se encuentre en el software; para 
salir de dudos, se carga un programa que se sabe que funcio- 
na y se ejecuta; si se obtienen resultados positivos, la 


pruebo es definitiva. 
ERRORES DEL SOFTWARE 


Cuando la computadora da un mensaje de WHAT? o de HOW?, in- 


dica normalmente la línea errónea del progroma, como en 


WHAT? 
19 X= ¿SRL 


En el caso de un mensaje WHAT? seguido por una línea del 
progroma, la computadora inserta un signo de interrogación 
inmediatomente antes del error. En este caso, la computado- 
ra no reconoce SQR (recordar que no se tiene la función raíz 
cuadrada interconstruida en el BASIC NIVEL 1) osí es que 
lee 18 X = S y luego busca un operador matemático, un ( : ), 
un fin de línea o alguna otra continvación válida. "Q" sim- 
plemente no se ajusta a lo enterior, por lo tanto la computa 


dora lo trata como si fuera un error. 


Con los mensajes HOW?, la computadora inserta un signo de 


interrogación inmediatamente después del error. Por ejemplo : 
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HOW? 
10 PRINT INT(1)?/23 


El signo de interrogación nos dice que el error fue descu- 
bierto durante la ejecución de la función INT. Podemos adi- 
vinar que el valor de 1 probcblemente excedía del rango per 
misible pora la función INT (el valor deberá ser mayor que 


(-) 32768 y menor a (+) 32768). 


Ahora veamos algunas de las fuentes más comunes de "errores 


detectados por la computadora". 


1. Supongomos que el error está en la declaración PRINT ó 
INPUT. 
a) ¿Están escritas los comillas de comienzo y fin en un 
texto que las requiere? 
Ejemplo : 


10 PRINT "RESPUESTA ES, X:GOTO 5 


ERROR : faltan comillas finales después de ES. 


b) ¿Se ha utilizado un nombre de variable diferente a una 
sola letra del alfabeto? 
Ejemplo : 
1% INPUT AG,S1 


ERROR : Los nombres de las variables del NIVEL*I no 
podrán tener más de una letra ni una combinación letra/ 


número. 


c) ¿Se han olvidado puntos y comas o comas que separaban 
variables o un texto, o se ha encerrado al punto y 
coma o a la coma dentro de las comillas? 

Ejemplo : 


19 PRINT "EL VALOR ES; "vV 
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ERROR : El punto y coma está dentro de las comilias 
(por lo que la "cadena" de palabras y la variable no 


están separadas adecuadamente). 


d) ¿Se ha olvidado el número de línea, se ha intercalado 
alguna letra con el número o se ha utilizado un número 
de línea mayor que 32767? 
Ejemplo : 


7283 PRINT "NUMERO DE LINEA ERRONEO". 


ERROR 


e) ¿Se han escrito accidentalmente dobles comillas en el 
texto? 
Ejemplo : 


18 PRINT ""DIJO HOLA" 


f) ¿Se ha escrito alguna línea de más de 78 caracteres 


de larga? 
9) ¿Se ha escrito mal PRINT o INPUT? 
h) ¿Se ha introducido involuntariamente algún carácter 


indeseable en la linea, especialmente alguna coma 


extra o un punto y coma de más?. 


3 
uN 
Las 


el error está en una declaración READ, puede ser debido 
a cualquiera de las razones opuntadas o a cualquiera de 


las siguientes 


o) ¿Existe realmente una declaración DATA para que lea 
la computadora? Recordar, que sóso se leerá una in- 
formación una vez, a menos que sea restauroda por un 


RESTORE. 


Ejemplo : 
1% READ X,Y,Z 
26 DATA 2,5, 


ERROR : Sólo existen dos números para ser leidos por 
la computadora. Si se quiere que Z valga cero, debe 


especificarse. 


26 DATA 2,5,8 


. Si la zona de error corresponde a un bucle FOR-NEXT, la 
mayoria de las posibilidades anteriores también son apli- 


cables, además de : 


b) ¿Existe alguna declaroción NEXT para completar la FOR? 


c) ¿Están presentes todos los requisitos del bucle, a sa- 
ber : un comienzo, un final, un nombre de variables, y 
el tamaño del incremento si es que no es igual a 1? 
Ejemplo : 
1Q A = 1 TON 


ERROR : Son necesarios un FOR y UN NEXT. 


d) ¿Se han anidado accidentalmente dos bucles usando la 
mismo vorioble en ambos? 
Ejemplo : 
18 FOR X= 1 70 5 
28 FOR X = TO 3 
36 PRINT X 
40 NEXT X 
5% NEXT X 


“ 


ERROR : Los bucles anidados deberán tener diferentes 


nombres, de variables. 


e) ¿Tiene la variable interior del bucie la misma letra 
que el contador del mismo? 


Ejemplo : 


4, 


1 A = 22 
28 FORR =1TO5 


38 R=18 

4% Y = R*A 
5% PRINT Y 
6% NEXT R 


ERROR : El valor de R se ha cambiado dentro del bucle 
por otro valor distinto y NEXT R se ha sobrepasado, ya 


que 18 es mayor que 5. 


f) ¿Existen bucles onidados incorrectamente, de modo que un 
bucle no se halle dentro de otro por completo, sino 
tan sólo de forma parcial? 
Ejemplo : 
19 FOR X = 17106 
28 FOR Y = 1 TO 8 
3Ó  SET(X,Y) 
4% NEXT X 
5H NEXT Y 


Si la decilaroción erróneo está dentro de un IF-THEN o GOTO 


a) ¿Existe realmente el número de linea especificado por el 
THEN o EL GOTO? Hay que cuidar este error especialmente 
cuando se elimina una línea en el proceso de "mejorar" 


ó "limpiar" un programa. 


El error nos viene como un SORRY pero el P.M. nos indica 
que hay espacio en la memoria : Si se obtiene un SORRY y 
se está utilizando un vector A(X), asegurarse de verificar 
el P.M, luego restar 4 bytes por cada elemento del vector 


utilizado. Probablemente se sobrepasa la memoria disponible, 


El error se manifiesto como un HOW? y la línea del programa 


que contiene el error es impreso con un signo de interroge- 


A Fl 


ción que aparecerá en algún lugar de la misma. 


a) ¿Se sobrepasan los límites de alguna de las funciones 


construidas? 


b) ¿Sobrepasa alguno de los valores de la línea el tama- 


ño máximo o mínimo para números del NIVEL 1? 


c) ¿Se ha pretendido que la computadora dividiese por cero? 


Paro averiguor si es que se hizo cualquiera de las co- 
sas anteriores, imprimir los valores de todos las vario 
bles que se usaron dentro de la línea errónea. Si aún 
no se ve el error, intentar efectuar loas operaciones 

¡a . e . , z 
que se indicon en la línea. Por ejemplo, el error puede 
ocurrir durante la multiplicación de dos números muy 


grandes. 


Por supuesto que estos no son todos los errores posibles que 
pueden aparecer, pero por lo menos dan alguna idea de cómo 
hallerlos. Ya que no podemos evitar completamente los errores 


tontos, es muy conveniente eliminarlos cuanto antes. 


En definitiva, todo lo que la computedora puede decir es si 
hemos o no seguido todas sus reglas. Pero además, podemos 
3 


haberlos seguido a la perfección y estar cometiendo errores. 


Entre los errores no detectados por la computadora se encuen- 


tran : 


1. El olvidar inicializar variables (iniciándose éstas con 
los valores antiguos). Recordar que no se puede suponer 


que los variables no utilizadas valen cero. 


2. El reinicializar una variable accidentalmente, (particu- 


larmente fácil cuando se están usando bucles). 


215) 
Xx! 


3. 


Ejemplo : 
19 FOR N = 1 TO 3 


29 READ A: 
30 PRINT A 
4%  RESTORE 
59 NEXT N 


6% DATA 1,2,3 


El invertir condiciones, esto es, el usar "=" cuando 
se quiere “«<) ", O "mayor que" cuando se quiere decir 


"menor que”. 


El incluir "iguales",:'como en "menor o igual a", cuando 


en realidad lo que queria decir era sólo "menor que". 


El confundir variables de nombres similares, princi- 
palmente la variable A, la cadena AS, y el vector A(X). 


No están relacionados. 


. Olvidar el orden de la ejecución del programa de izquierda 


a derecha en cada línea, (las multiplicaciones y las di- 
visiones siempre tienen prioridad sobre la adición y lo 
sustracción y las funciones intrínsecos (INT,RND,ABS,etc) 


tienen prioridad sobre todo lo demás). 


El contar incorrectamente en los bucles FOR 1 = Y TO 7 


hace que la iteración se ejecute ocho veces y no siete. 


« Usar las mismas variables accidentalmente en dos lugares 


diferentes. Esto es correcto siempre y cuando no se nece- 
site la variable antiguo posteriormente, pero desastroso 

si se necesita después. 

Se debe tener especial cuidado cuando se combinan progra 


mas o al usar las subrutinas del apartado 62, 


AS 


¿Pero cómo se detectan estos errores, si la computadora 


no los imprime?. Las reglas a seguir son : 


1. AISLAR el error, Insertor "banderas" temporales. Ágregar 
declaraciones extras STOP, END y PRINT hasta conseguir 
que el error se halle contenido en una o dos lineas. 


Ejemplos de banderas útiles 


299 PRINT " LINEA 4% 299" 
399 1F X< f THEN PRINT "X FUERA DE MARGEN EN HA 399": 
STOP 


La línea 299 ayuda a seguir la trayectoria del programa. 
Lo línea 399 se usa para localizar el punto donde X se 


sale de rango. 


2. Efectuar "pruebas" lo más simple posibles. No agregar 


complicaciones hasta que se haya encontrado el error, 


3. Verificar los casos simples «a mono para comprobar su 
lógica, dejando que la computadora realice el trabajo 
difícil. No trotar de resolver problemas complejos en 
papel, porque fócilmente introduciremos más errores 
que los que queremos evitar. Usar la modalidad de col- 


culadora, u otra calculadora de bolsillo para trabajar. 


4. Recordar que se puede forzar a la computadora paro que 
comience en cualquier línea del programa que se desee; 
para ello se teclea RUN 4£ 4£ 4£ (donde 4 44 H£ repre- 
senta a la línea deseada), De esta forma se puede ir 
repasando el programa; se dan valores a las voriables 

Usando declaraciones en el modo de calculadora y se 

ejecuta el programa desde el punto de comienzo escogido, 
También se puede intercalor un STOP, en un punto poste- 
rior. Ási, se pueden probar partes del programa, separo- 


damente del resto. 
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5. Recuérdese que también se puede listar una parte del pro- 


grama sin necesidad de listarlo completo (LIST 4£ 4 4). 


6. Practicar la "programación defensiva". Que el programa 
funcione "bien" no implica que sea de confianza. Los 
progromas que aceptan datos de entrada y que los procesan, 
pueden ser particularmente engañosos. Es preciso acostum- 
brarse a verificar un programa nuevo en todos sun puntos 
críticos. Ejemplos : Un programa de raiz cuadrada deberá 
ser revisado para ver si contiene entradas menores o 
iguales a cero. Los funciones matemáticas que se hayan 
programado, deberón ser verificadas en aquellos puntos 


donde la función no esté definida, tal como TAN(902). 
Finalmente hay que reseñor la importancia del diagrama de 
flujo como guía que disminuye la probabilidad de cometer 


errores y facilita su detección. 


Material Aprendido en el Capítulo 26 


VARIOS 


Programación defensiva. 


Errores detectados por la 


computadora, 


Banderas. 


Procedimientos para la 
revisión del hardware. 


Ordenes 


NEW 


RUN 


RUN 4 E A 


LIST 


LIA 


CONT 


Declaraciones 


PRINT 


INPUT 


INPUT 


READ 


- RESUMEN DEL NIVEL BASIC 1 


Propósito 


Borra todas las líneas de 
programa almacenado en 
memoria. 


Inicia la ejecución del 
programa en el número de 
línea más bajo. 


Inicia la ejecución del 
programa en el número de 
línea especificado. 


Muestra las primeras doce 
líneas del programa alma- 
cenado en la memoria, empe 
zando por el número de li- 
nea más bajo. Pulsando una 
tecla, se detiene el lis- 
tado, 


Lo mismo que LIST, pero 
empieza por un número de 
línea especificado. 


Continúa la ejecución del 
programa cuando aparezca 


BREAK ATA ASA 


Propósito 


Imprime el valor de una 
variable o expresión; tam- 
bién imprime lo que se 
encuentre dentro de "comi- 


Ibas”. 


Le dice a la computadora 
que nos permita introducir 
datos desde el Teclado. 


Se puede usar simultánea- 
mente con la declaración 
PRINT. 

Lee datos de una declara- 
ción. 


o 1f 


o a e 
A a e o o 


Ejemplo 


NEW(no es parte del 
programa) 


RUN (no es parte del 
programa) 
RUN (no es parte del 
programa). 


RUN 398 (no es parte 
del programa). 


LIST (no es parte del 
programa). 


LIST 308 (no es parte 
del progroma). 


- CONT (no es porte del 


programa ). 


Ejemplo 


19 PRINT "A+B=";A+B 


1% INPUT A,B,C 


19 INPUT "ESCRIBIR 
UN NUMERO"; A 


16 READ A,B,C,AS 


Copit. 


ps 
pb 


- 


DATA 


RESTORE 


LET 


GOTO 


1F--THEN 


FOR-NEXT 


STEP 


STOP 


GOSUB 


RETURN 


A A A A A a o 


AT 


Guarda datos para ser leidos 24M DATA 1,2,3"SALLY" 


por una declaración READ. 


Hace que la siguiente 
declaración READ empiece 
con el primer elemento en 
la primera línea DATA. 


(Opcional) le asigna nue- 
vos valores a la variable. 


Transfiere el control del 
programa a la linea del 


. progroma designada. 


Establece un punto de 
prueba, 


Establece un bucle para 
que sea ejecutado un nú- 


mero especificado de veces, 


Especifico el tamaño del 
incremento para ser vtili- 
zado por los iteraciones 
FOR=NEXT. 


DETIENE LA EJECUCION DEL 
PROGRAMA e imprime un men- 
saje BREAK AT 4£ 44 ££ 


Finaliza la ejecución del 
programa y fija el conta- 
dor del programa en cero. 


Transfiere el control del 
programa a la subrutino 
que se inicia en la linea 
especificada. 


Finaliza la ejecución de 
la subrutina y devuelve el 


control a la línea siguien- 


te a GOSUB. 


Romificoción de caminos 
múltiples utilizada por 
las declaraciones GOTO y 
GOSUB. 


Propósito 


(sigue a PRINT) Empieza la 


impresión en un lugor espe- 


cificado de la pantalla. 


2 


16 
30 RESTORE 16 
10 LET A=3,14159 2 
19 GOTO 368 6 
14 IF A=B THEN 388 6 
1% FOR I=1 TO 19 o MES IA e 
26 NEXT 1 
10 FOR I=% TO 19 16 
STEP 2 
19 IF A = B STOP 11 
99 END 2 
1% COSUB 3086 15,25 
3818 RETURN 15,25 
16 ON N GOTO 34, 48,56 15 
19 ON N GOTO 2448, 4006, 
5 


Ejemplo 


16 PRINT AT 65 
"HOLA" e Í 


Capitulos 
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TAB (sigue a PRINT) Empieza a 14 PRINT TAB(18): 12 
imprimir después de un nú-  "MES";TAB(28): "RE- 


mero especificado de espa-  CIBOS" : 
cios desde el margen izquier 
do. 
O O O 
Gráficas Propósito Ejemplo Capit. 
SET Ilumina un lugar especifi- 18M SET(34,46) 20,22 
cado de la pantalla, 
RESET Apaga un lugar especifica. 2% RESET (38,48) 20,22 
do de la pantalla. 
POINT Verifica el lugar gráfico 38 1F POINT(3£, 49) 22 


especificado: si el punto =1 THEN PRINT "EN- 
está "encendido" obtiene CENDIDO" 

un 1; si esté"apagado" ob- 

tiene un $, 


CLS Apaga todas las posiciones 18 CLS 10,20 
gróficds (limpia la panta- 

: lla). 
A A DO DAI 
Funciones 
Implementadas Descripción Ejemplo Capit. 
MEM Nos dae el número de bytes 16 PRINT MEM 8 

libres restantes en la 
memoria. 
INT(X) Obtiene el mayor entero 18 I = INTOO 14 
que sea menor que o igual : 
aX, 
ABSOX) Valor absoluto de X 16 M = ABS(A) 17 
RND(Ú) Nos da un número al azar 19 X = RND(H) 19 
entre Y y 1. 
RNDÍ(N) Nos da un número al azar IB X = RND(5g0) 19 
entre l y N. j 
NS A ON AA 
Operadores 
Mate. Función Ejemplo Capit. 
+ - Adición A+ B 3 
- Sustracción A-B 3 
* Multiplicación Á 28 3 
A División A/B 3 
= Le asigna el valor de A=B 3 


la parte derecho a la 
variable de la parte 
izquierda. 
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e: 


de sE GTO es 


Relacionales Relación Ejemplo Capt. 
< es menor que A B 6 
? es mayor que A B 6 
= es igual a A =8B 6 
a es menor o igual a A =B 6 
>= es mayor o igual a A  =B 6 
qe no es igual a A B 6 
ÓN 
Operadores 
Lógicos Función Ejemplo Capit. 
de ANDY) (A=3)+(A=7)"A es 24 
igual a 3yAes 
: iguala. 7", 
+ OR(O) | (A=3)+(4=7)"A es 24 
igual a 3óA es 
igual a 7". 
A AS O AT NS UN 
Variables Propósito Ejemplo Capit. 
de la A a la Z Toma valores numéricos A = 3.14159 3 
AS y 8% Toma valores encadenados ASz radio shack 16 
A) Almacenar los valores de A(Ó) = 498. 21 


un vector. 


ABREVIATURAS DEL NIVEL BASIC 1 


Comando/Declaración Abreviatura Comando/Declaración Abrevit. 


TAB (después de PRINT) 4 


PRINT Pp, 

NEW N. INT La 
RUN R. GOSUB GOS. 
LIST Ls RETURN RET 
EBD Es READ REA 
THEN E DATA D, 
GOTO G. RESTORE KESTS 
INOUT ÍN. ABS A. 
MEM Mm. RND 

FOR Es SET S 
NEXT N. RESET Us 
STEP (después de FOR) S. POINT Pp. 
STOP Sl PRINT AT P.JA. 
CONT el 


y 
El 1d 
5 
> é 1 
á 3 
e $ 


CAPITULO 2Z 


e e a o e e a e e e 


A e o a e 


ARCHIVO DE DATOS EN CASSETES 


Este capitulo, aunque puede ser opcional, es muy importante 

debido a que supone una innovación sobre lo que se ha visto 

hasta ahora. 

Es lo que podemos llomar el paso de la programación al mundo 


más amplio del procesamiento de datos. 


Hasta ahora, se ha dependido de las 26 variables numéricos del 
nivel 1, de la A'a la Z, 87 posiciones para los vectores A(X), 
dos variables encadenadas AY y B2, y las lineas DATA para al- 
macenar los datos que necesitan nuestros programas. Esto tiene 


dos limitaciones 


l. La memoria de la computadoro puede no ser lo suficientemente 
grande como para retener toda la información que se necesita 


(por ejemplo una lista de inventario). 


Z. Cuando se apaga la computadora los valores de las variables 


se pierden. 


Los archivos de datos en cassete, solucionan ambos problemas. 
Podemos almacenar tremendos cantidades de información en una 
cinta y recuperarlas más tarde, de manera parecida a como se 


guardan los progromas. 


El trasvase de progromas de la microcomputadora al cassete y 
viceversa se realizaba mediante las instrucciones CSAVE y CLOAD. 
Paro trasvasor datos en lugar de las instrucciones citadas se 


utilizan 


221 


oprimir los teclas RECORD y PLAY de la grabadora simultánea- 


mente; luego teclear y ejecutar el siguiente programa : 


59 A=1:B=2:C=3 
19H PRINT 4£ A7","¡B7",";C 


Se puede observar la puntuación requerida para separar cada 
varicble para imprimir sobre la cinta, se debe insertar 


(;",";) entre dos variables de una declorcción PRINT eS 


El proceso de grabcción al ejecutar el programa es el siguien 
te : 


1. La grabadora automáticanente empieza (suponiendo que 
está en la modalidad RECORD). 


2. Sobre la cinta se escriben los valores de A,B IA 


3. Cuando se han escrito los valores, la grabadora se detiene; 
entonces debe oprimirse STOP para desacoplar la cabeza de 
grabación. 


De esta forma se guardan estos valores en cinta. 


Para leer de nuevo los datos del cassete, se rebobina la cinta 
cprimiendo la tecla REWIND hasta el punto donde empezó el or- 
chivo de datos. Luego puede editarse el siguiente programa 


(después de haber borrado el anterior con NEW) : 


108 A=M:B=0:C=9 

114 INPUT 4£ A,B,C 

128 PRINT "LOS DATOS HAN SIDO LEIDOS DE LA CINTA" 
13% PRINT “A=";A,"B=";B8,"C=";C 


Una vez hecho esto, se oprime lo tecla PLAY de la grabadora y 


se ejecuta el progrema (RUN). 
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Si los datos del programa anterior se han leido correctamente, 
y así mismo fueron correctamente almacenados, la computadora 


debe mostrar : 


LOS DATOS HAN SIDO LEIDOS DE LA CINTA 
A= 1 

B= 2 

Ca 3 

READY 


- La línea 16% fija las variables a cero. De esta forma, si los 
datos no se leen correctomente, el valor de las variables será 


cero, 


- La línea 118 permite que la grabadora comience a funcionar, 
cargando los tres números en las varicbles A,B,C. Una vez leí- 


dos los 3 números, la grabadora se detiene, 


- La línea 1280 imprime un mensaje que da seguridad. Estos tipos 
de mensajes son muy utiles como guia paro el programador. 
Por ejemplo, antes de que la computadora ejecute una declara- 
ción PRINT ¿£ , se puede hacer que imprima un mensaje que avi 
se que hay que poner la grabadora en la modalidad de graba- 


ción. 


.- La línea 13% imprime los datos que han sido leidos de la cinta., 


NOTA : 


Si la grabadora no está en la modalidad de reproducción (PLAY, 
con las conexiones apropiados), cuando ejecute una declaración 
INPUT 4£, la computadora tratará de leer la cinta hasta que ob- 
tenga algo y se perderá el control de la computadora desde el 
teclado. 

La única forma de volver a controlarla es apretando el botón 

de reajuste (Reset) localizado en la abertura de la parte tra- 
sera izquierda del teclado. 


Esto termina con el programa pero no lo borra. 


Si se imprime con PRINT 4% una lista de un determinado número 


de valores sobre la cinta, se debe haber introducido con un 


INPUT 4% el mismo número de valores. Si no concuerda el número 


de elementos de la declaración PRINT ÉÉ con el número de ele- 


mentos de la declaración INPUT 4%, se acabará perdiendo datos 


o perdiéndose el control de la computadora. 


El siguiente programa demuestra como se puede usar un archivo 


de datos, para crear una lista de elementos de dato, su pro- 


cesamiento y actualización. Se recomienda su estudio para en- 


tender como podrían progromos similares manejar inventarios o 


cualquier otra lista secuencial, 


REM * TEMP Y HUMEDAD PROM. USANDO UN ARCHIVO DE DATOS. + 
C=M:CLS 
B=W 
ÍN. "¿QUE DIA DEL MES ES?":D 
IN. "¿CUAL FUE LA TEMPERATURA HOY?";T 
IN. "¿CUAL FUE LA HUMEDAD?" :;H 
IF. D=l] THEN 168 
P. "CARGUE LAS TEMPERATURAS Y HUMEDADES ANTERIORES DEL MES". 
P. "PRIMERO REGRESE CINTA AL PRINCIPIO DE ARCHIVO DE DATOS", 
P. "LUEGO OPRIMA TECLA PLAY DE GRABADORA", 
IN. "OPRIMA ENTER CUANDO ESTE LISTO";A £ 
FOR X = 1 TO D-1 
INPUT 4£ Y,Z 
= B + Y 

Cie 2 


DZOW 
im 
"M2 4 
par 


:P. "LA TEMPERATURA PROMEDIO ES";B 

"LA HUMEDAD PROMEDIO ES";C 

:P. "AHORA LA TRS-88 ESCRIBIRA" 

"LA TEMPERATURA Y HUMEDAD DE HOY" 

"SOBRE LA CINTA" 

"ASI QUE. OPRIMA LAS TECLAS RECORD Y PLAY" 

+ "PERO NO REGRESE LA CINTA" 

IN. "OPRIMA ENTER CUANDO ESTE LISTO"; A £ 

PRINT 44 T;",";H 

P.:P. "AHORA LA INFORMACION DE HOY SE AGREGO AL ARCHIVO EN 
CINTA" 

P.:P. "POR FAVOR OPRIMA LA TECLA STOP DE LA GRABADORA" 
END 


ch 


Y UDDDODAOO 
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- La línec 88 lee todos los números o valores de los días 
anteriores, de dos en dos, Cuando se ha leído toda la in- 
formación, se calculan el promedio de humedad y temperatu- 


ra (usondo la información del día también). 


- La línea 220 escribe a continuación la información del día 


en la cinta, 


Se puede ejecutar este programa empezando por el primer dia 


del mes. 


EJERCICIOS PARA El USO DE LOS ARCHIVOS DE DATOS 
RARA la 


1. ENSEÑANZA, EXAMENES. Escribir un progroma que haga un exá 
men de opción multiple incluyendo diez preguntas. El pro- 
grama debe escribir los nombres de los estudiantes, y las 
diez respuestas en un archivo de datos en cossete. Diseñar 
un programa de manera que pueda tomarse uno cualquiera de 
los exámenes de los estudiantes. Incluir instrucciones so- 
bre cuándo se deben utilizar las teclas RECORD, PLAY y 
STOP. 


El progroma evaluador debe tomar los datos del archivo 
creado con anterioridad para leer el nombre y las respues- 
tas del estudiante. Después de un intervalo pasará al si- 


guiente estudiante hasta completar la lista, 


2. INVENTARIO. Escribir un programa que cree un arreglo en 
el cual se almacene la siguiente información sobre un gru 


po de coches, 
Placas N2 Tomaño del motor Código del color Modelo 


Este programa debe almacenar el arreglo en un archivo de 


datos, y tiene que realizar las siguientes funciones : 


no 
158] 
un 


1. Se le puede preguntar en que coche se está intere- 


sado, (tecleando el número de placa). 


2. Lea el archivo hasta que encuentre el número de- 


seado. 


3. Imprima toda la información de ese coche en parti- 


cular, 


NOTA : 


Puede consultarse el capítulo 21 donde se desarrolló este mis- 


mo arreglo, 


terial aprendido en el Capítulo 27 


DECLARACIONES VARIOS 


INPUT ¿£ Ficheros de datos 


PRINT á£ 
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APARTADO 32 


JUE GS 


e 


INTRODUCCION AL_APARTADO > 


Como complemento al manual de programación BASIC NIVEL 1 
hemos introducido este apartado con óbjeto de dar unas orien- 
taciones sobre el modo de elaborar programas de cierta comple 
jidad.. Se ha- seguido elpertterio de Pregrámar una Série de” 
juegos en relación creciente de dificultad. 


Este tipo de problemas es muy adecuado para el aprendizaje —- “” ' 
de la programación, dada la múltiple variedad de casos y 
posibilidades que pueden presentarse en ellos. 

Así mismo, en este apartado podrá verse la importancia de lo 

que se llama "programación estructurada”. 


_ Esta idea, método de elaboración progresiva.de ur. peegramá5 


cobra mayor importancia cuanto mayor es la dificultad del 
programa. En síntesis se trata de preguntarse que es lo que =- -- 
hay que hacer antes de pensar en como hacerlo y así ir elabes 
rando diagramas de flujo gehérales que explican el -prográña 

en su conjunto. 


Los pasos siguientes consistirán en ir subdividiendo cada bloque 
del diagrama de flujo general en diagramas de flujo más concretos 
hasta llegar al diagrama final o al programa final. A este proce- 
so progresivo los programadores le denominan "refino". 


-228- 


Ze 00 so con m0 ens a e DW E E E E e su ena o ct o. 
o Ds o St PE O o o 


GASES DEL PROGRAMA 


£ste sencillo Ergo trata de glaboror unarcargeo que sea 


capaz de medir la velocidad de respuesta a una orden visual, 
Debido a su sencillez no parece necesario un dibyia del in 
o de £luia arg sy comerensión, 


PROGRAMA 


= CLs 
PA a a A ETT 


30 NEXT E 
40 PRINT 

$2 SRINT 

$0 FRINT 

70 PRINT a 
80 X=RND*+*S927 ñ 
90 FOR N=1 TO xXx 

100 NEXT N 

110 PRINT 

120 PRINT 

130 FRINT 

140 PRINT 

150 PRINT 
1409 FRINT oo scores ds TA 
170 CLS 

180 FOR Z=10 TO 1 STEP-1 

190 PRINT.Z 

200 NEXT 2 

210 PRINT 

220 FRINT 

230 PRINT 

240 FRINT*LE FALTAN REFLEJOS? 

250 END 


Y 
ER ERICA ARO ER AI. 


EXPLICACION DEL PROGRAMA 


- Las lineas de la 1 a la 7 preparan al jugador. 

- Como nota destacable del progroma, la línea 8% elige al azar 
el tiempo que tarda en aporecer el YA! (línea 174). 

- Las líneas 18% a la 24% dan la puntuación del jugador. 

- La linea 249 indica que se ha sobrepasado el tope estipulado 


de reflejos. 
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TIRO DEL CASTILLO 


DU A o o e ci có O A e a e 
MOE O CO A, EA AS 20 sm o Sos ms o CN sn 


BASES DEL PROGRAMA 


Este programa es un ejemplo de manejo de las funciones gráficas. 
El difujo que se quiere conseguir consiste en un castillo que 
tiene un cañón en la almena. El cañón dispara una bala que rom- 


Pe una casa. Este ciclo se repite dos veces. 


El siguiente diagrama de flujo muestra las fases y desarrollo 


de creación del programa. 


DIAGRAMA DE FLUJO 


Gauazo) 
| 


FOR Z= 1 102 


Además se introducen 3 retardos. Uno de 0,2 segundos después 


de dibujar la casa, otro de 0,2 seg. después de retroceder el 


cañón y otro de 2 segundos después de dibujar "BOOM", 


Á continuación se da el listado correspondiente. 


PROGRAMA 


S REM x TIRO DEL CASTILLO x 
INPUT*ESCRIBA SUS INICIALES"5AS$ 


10 

z0 

30 

48 

30 

60 

74 

89 

209 
210 
220 
238 
240 
250 
300 
310 
320 
330 
340 
400 
410 
420 
300 
409 
610 
$620 
630 
Z00 
710 
720 
730 
740 
730 
100 


CLS 
Z=74 


FOR Y=17 TO 47 
FOR X=Z TO 127 


SET(X» Y) 
NEXT X 
IF Y<23 THEN 
NEXT Y 

FOR X=75 TO 
SET(X»16) 
SET(X+1»16) 
NEXT X 

Q=0 

FOR X=95 TO 
FOR Y=47 TO 
RESET(X» Y) 
NEXT Y 

NEXT X 

FOR X=95 TO 
RESET(X»34) 
NEXT X 


Z=Z+2 


123 STEP 4 


125 STEPS 
33 STEP-1 


PRINTOS88 + "CAS.DE *54%5 


FOR X=73 TQ 
SET(X+12) 
SET(X+13) 
NEXT X 

FOR X=85 TO 
SET(X»+14) 
SET(Xs+15)> 
NEXT X 


RESET(90+ 13) 
RESET(?91+13) 


0 FOR Z=1 TO 


100 


95 


2 


14 


1010 FOR X=2 TO 
1020 FOR Y=40 TO 43 
10309 SET(X»Y) 

1040 NEXT Y 

10309 NEXT X 

1100 FOR X=3 TO 


íl1 


Si 
1130 
1149 


119 


0 RESET(X»41) 


0 NEXT X 


( REM x ESTO 


RESET(7 943) 
RESET (843) 


IIPSTER 2 


HACE RETROCEDER LA EATERIA x 
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y ab 


1200 
1210 
1220 
1230 
1240 
12530 
1250 
1574 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1340 


1374 
1300 


1310 
1320 
1339 
1340 


UD. 


1510 
1520 
1630 


1440 
17090 


1710 
1720 
17730 
1740 
1730 
1800 
1810 
1820 


FOR T=i TOD te0 
RESET(73»12) 
RESET(73,13) 
RESET(74,12) 
RESET (74,13) 
SET(101+12) 
SET(101+13) 
DEFIAIDL 
SET(102+13) 
FOR X=1 TO 100 
SET (7412) 
SET(74+13) 
SET(73>12) 
SET(73,13) 
RESET(102+12) 
RESET(102+13) 
RESET(101+12) 
RESET(101»13) 


*E X=» TQ 2 STEP-1 


P=X-33 
Y=PxP/150+12 
SET(X»Y) 
SET(X=1» Y) 


RESET (X+Q) 
Q=Y 
NEXT X 


PRINTO771 NS 


G0SUsS 1940 
FOR X=1 TO 18 
RESET(X» 45) 
RESET(X,36) 
RESET(X+37) 
NEXT Xx 

NEXT Z 
PRINTOO+* *; 
END 


1920 FOR X=1 TO 1090 


1910 
1920 


RELACION DIAGRAMA DE FLUJO 


NEXT Xx 
RETURN 


Dibujo del castillo 


$e 


del cañón 


de lo casa 


Retardo 0,2 segundos 


. 
2 


. 
. 


líneas de la 4% a la 568 


tu 


y 


linea 120% 


Dibujo del retroceso del cañón 


Retardo de 0,2 segundos 


Dibujo del avance del cañón 


del disparo " 


La 
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. 
+ 


pl 


* 
a 


-_ PROGRAMA 


" 688 a la 758 
" 1814 a la 1149 


líneas de la 1218 a la 1284 
línea 1294 
líneas de la 134% a la 1378 


mm 


nn 


1596 " 


$“ 1648 


Retardo de 2 segundos -— : líneas 1768, 194%, 1918, 1928 
Borrado de la bala y el "B00M" : líneos de la 1714 a la 1754 


La repetición del ciclo se realiza merced a las líneas 1404 


y 1849. 


e. 
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JUEGO DE DADOS 


er a 0 sto cc o o cr e a 
A e e e a as o e o o 


NORMAS DEL JUEGO 


19%) El jugador tira los dados. Si en la primera tirada, la 
suma da (2,3, 6 12) pierde, si obtiene un 7 e un 11 gana. 


En cualquiera de estos dos casos, el juego finaliza. 


292) Si la suma de la primera tirada da un número distinto de 
los anteriormente referidos, éste se convierte en una 
puntuación que en el caso de que se repita en posteriores 
jugadas, el jugador gana, mientras que si en alguna de 


ellas saca un 7, pierde. 


Una observación de interés en todos estos progromas de juegos, 
está en la elección de la impresión de resultados en la pan- 


talla de video. 


En el caso concreto que aquí se trata, se dibujan dos dados 
con sus puntuaciones en la parte central de la pantalla. 
También se imprime la primera tirada, así como una serie de 


indicaciones y mensajes en la parte superior de la misma, 


La explicación del programa viene dada por el diagrama de flu 
_ Jo a través del cual puede seguirse el listado, que no es sino 
una materialización de aquel en lenguaje BASIC. El bloque 
"DIBUJAR DADOS" da lugar a su vez a otro diagrama, e incluso 
cada subrutina de este segundo diagrama puede representarse 
mediante otro diagroma de flujo. Este caso constituye un 


típico ejemplo de programación estructurada. 
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OIAGRAMA DE FLUJO GENERAL 


COMIENZO 


Dibujo de los dados 


v 
¡ 
3 
3 
E 
3 


der de tirado 
i 


Incremento conta- 


Tireda siguiente 
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DIAGRAMA DE FLUJO DEL_ BLOQUE "DIBUJAR DADOS" 


Dibujar recuadros 


Definir origen dado 
(A) 


o a un punto 
(1) 4 
(8) Dibujor dos puntos 
(2) 
Dibujar tres puntos |. 
(3) 
Dibujar cuatro puntos 
(4) 
Dibujar cinco puntos 
(5) 
' Dibujor seis puntos 
(6) 


Definir origen dado : 
(B) 


B GOSUB A,B,C,D,EÉ 


Desde luego existen muchas formas de programar el dibujo de 
los dados. Se trata entonces de buscar la más sencilla y con 
el máximo ahorro de instrucciones. Los diagramas de flujo de 
las subrutinas muestran una manera de llevar a buen término 


este objetivo pero, por supuesto no es la única. 


DIAGRAMAS DE FLUJO DE LAS SUBRUTINAS 


Subrutina A) 


Rectificar origen X 


Dibujar punto central 


Dibujar punto sue 
perior derecho 


S 


Subrutina  C) 
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Subrutina 


D) 


¡O 


| 
' 


| 
¡ 


Rectificar origem X 


| 


Dibujar punto es- 
quino superior» 
izquierda 


] Rectificar origen X 


Dibujor puntg esquina 
infericredeyecho 


Subrutina F) 


Dibujar punta 


central ¡Squierdo Ñ 


Rectificar origen Ml 
Dibujar punto 
central derecho . ..[---- 


OBSERVACIONES : 


Si se remite el lector a la subrutina E observará que esta su- 
brutina llama a otra (la D), que a su vez lloma a la B. Cuando 
de nuevo regresa el control a la subrutina E, se manda a la A. 
Esto se puede expresor más fácilmente diciendo que para dibujar 
un "5" dibujamos primero un "4" que a su vez se basa en el "2" 


y una vez finalizado este proceso, se dibuja el 1. 


Como puede apreciorse todos las subrutinas quedan relacionadas 
entre si, bajo formas similares a la explicada de manera que 


puedan ahorrarse el mayor número de instrucciones. 


NOTA : 


Se podían haber ahorrado algunos bloques de rectificación de 


origen X, pero se ha preferido seguir la norma de dibujar pri- 


mero los puntos del dado de la parte izquierda para evitar, 


confusiones. Esto puede ser indicativo de que el ahorro de ins- 


trucciones no tiene por que tomarse como criterio rígido a la 


. hora de elaborar un programa. 


PROGRAMA 


10 
15 
z0 
L23 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
195 
150 
160 
170 
180 
190 
200 


220 
235 
249 
245 
250 
255 
250 
270 
280 
290 
300 
310 
320 


REM xXJUECGO DE DADOSx 

REM XFICHERO (¡3)x  - 

CLS ' 

Z=0 

PRINT TAE(23)5;"JUEGO DE DADOS” 


PRINT TAE(C239)3"=ecccsmacreczama ? 

PRINT 

PRINT*REGLAS DEL JUEGO" 

PRI Pc 2 

FRINT x 

FRINT"A) EN LA PRIMERA TIRADA »+SE GANA CON UNA SUMA DE 11 0 7 Y SE 


PRINT"PIERDE CON 2,3 0 12 .* 
PRINT 


FRINT"E) EN LAS TIRADAS SIGUIENTES +SE GANA IGUALANDO LA FRIMERA" 
PRINT"TIRADA Y SE PIERDE CON UN 7 .* 

PRINT a 

R=R+1 


INFUT"*FARA CONTINUAR PULSE UN (1)*5C 
1F C<>1 GOTO 150 

CLS 

FRINTOOS" : 
PRINTOO»" “>;INFUT*ADELANTE! TIRE LOS DADOS «(PULSE UN 2) 
IFT<*2 GOTO 180 

A=RNDi¿) ¿E=RNDi4> 

PFRINTEZ30>»" : 

PRINT 

FRINT 

FRINT 

FRINT 

FRINT 

FRINT 

FRINTOZ80»>» "TIRADA NUMERO" 5Z2+1 

FOR X=14 TO 45 

SET '(X»15) 

SET (X>30) 

NEXT Xx 

FOR X=82 TO 113 

SEMI) 


7 
, 
. 


$T 
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330 SET(X+20) 

340 NEXT X 

350 FOR Y=15 TO 30 

360 SET(14+Y)>:SET(15+Y)1SET(44>Y)3SET(459+Y) 
370 SET(82+Y>3SET(D3I+Y)ISETC(112+Y)1SET(1139Y) 
390 NEXT Y 

398 x=20 

200 ON A GOSUE 1000+2000>3000>4000+5000»4009 
410 x=88 

47231 IN E 59SUE 1100>2009>»3909+2900+5000+4000 
430 S=A+B 

390 FRINTOI73G+ "LA SUMA ES*:;35 

450 Y1F 2Z=29 GOTO 510 

+60 TF 327 OTI €£0 

470% IF S=P* GOTO 560 

480 FRINTOO» "SIGUIENTE TIRADA 

483 FORI=1T0750:NEXTI 

2490 Z=Z+1 

300 GOTO 180 

510 IF(S=2)0R(8=3)0R(S=12) THEN 380 
520 IF(S=7)0R(S=11) THEN 560 

Ss30 P=S 

348 PRINTOZ06» "LA SUMA DE LA FRIMERA TIRADA VALE*3PS5 
530 GOTO 480 | 

360 FRINTCO+*"LE FELICITO! HA GANADO 
3570 GOTO 590 

580 PRINTGO+*LO SIENTO! USTED PIERDE 
390 FRINT"LA PARTIDA HA FINALIZADO" 
600 GOTO 4600 

999 END 

1000 WH=x+8 

1010 FOR X= TO W+3 

1020 SET(X,22) 

1030 SET(X+23) 

1040 NEXTX 

1050 RETURN 

2000 Hex 

2010 FOR Xz=4Y TO H+3 

2020 SET(X+26) 

2030 SET(X+27) 

2040 NEXT Xx 

2050 H=x+12 

2060 FOR X=W TO WH+23 

2070 SET(X>18) 

20890 SET(X,19) 

2090 NEXT X 

2100 RETURN 

3000 COSUE 2000 

3010 X=X-20 

3020 COSUB 1000 

3030 RETURN 

4900 GOSUB 2000 

4010 W=X-20 

24020 FOR X=kW TO W+3 

4030 SET(X,18) 

4040 SET(X»19) 

40530 NEXT X 

24050 W=X+12 

34070 FOR X=W TO W+3 

4090 SET(X+26) 

4090 SET(X+27 

4100 NEXT x 

4110 RETUEN 

3600 COSUE 4000 

30810 x=x-29 

3829 SOSUE 1090 
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30305 RETURN 

Y cosus 

O H=x-20 
FOR X= TO +3 
6030. SET(X+22) 

6040 SET(X+23) 

6050 NEXT x 

6050 WH=x+12 

6070 FOR X=W TO +3 
$089 SET(XP22) 

:6090 SET(X+23) 

6100 NEXT Xx 

6110 RETURN 


4000 


RELACION DIAGRAMA DE ELUJO PROGRAMA 


i 


- Bloque de condiciones iniciales 
==" "reglas del juego 
a " — lanzcmisito-de «los dados 


- " — borrado de los dados anteriores .: 


- núméro de tirada 
- " — dibujo de los dados 
- Subrutinas 


- Bloque de la suma 


: línea 25. 
: líneas de la 34 a la 149 
: líneas de la 18% a la 218 
líneas de la 224 

a la 255 
: línea 269 
líneas de la 274 a la 424 
: líneas de la 999 a la 4119 
: linea 438 y 449 


.. 


e de decisión 1% tirada : línea 458 
A Y " ho S=7 : línea 468 
E " p S=P : línea 564 
e a A S = 263612 : linea 518 
> E < Saf 6 13 : línea 528 
is EN memorización de la suma  : línea 538 
az > suma 1% tirada : línea 549 
de tirada siguiente : linea 488 
0 incremento del contador de tirada : línea 498 
ae gana el jugador : linea 568 
mo A pierde el jugador : línea 589 


JUEGO DE LOS PALILLOS 


TR RIADA DIA 


NORMAS DEL JUEGO 
A) El jugador fija un número de palillos de partida (N) entre 
12 y 21. Tombién se elige el número máximo de palillos (M) 


que pruadon quiicrse en rs tizadg. con la condición de que 
sean más de 2 y menos $ igual a N/£, 


B) El juego consiste en ir quitando palillos alternatiwemsate, 
de mirare cuz giomdo al que quijo-el Jl . 


El dibuja de los palillos en la pantalle se simula par seqmem— 
tos verticales numerados en su parte superior. Asímismo en la 
parte superior de la imagen aparecen los mensajes adecuados. 
Cada vez que se quitan palillos, desaparecen segmentos de la 
pantalla de derecha a izquierda, restándose a la cantidad exis 


tente con anterioridad, 


El diagrama de flujo general, describe las funciones que debe 


llevar a cabo el programa. 
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DIAGRAMA DE FLUJO GENERAL 
ANA E FLUJO GENERAL 


| 
Reglas del juego 


(a) Subrutina 
de borrado 


Calcula el n2 
de palillos que 
hay que quitar = 

6 
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Los bloques " introducir N y M" pueden desdoblarse en diagramas 
de flujo que expresan las condiciones de las normas de juego 


impuestas. 


DIAGRAMA DE FLUJO DE ELECCION DEN y M 


¿Es N 
entero? 


Reposa normos 
del juego 


NO 
SI 

da | 

. | 

| | 

| | 

A: | 

| 

| 


Repase normas 
del juego 
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BLOQUE "CALCULO DE G" 


Lo primero que hay que plantearse en este programa, es el sis- 
tema de cálculo de los palillos que debe quitar el ordenador, 

de manera que resulte més o menos "inteligente" su jugada. En 
realidad la dificultad de la mayoría de los programas de juegos 
reside precisomente en este punto, debido a que hay que salirse 
a menudo del terreno de la programación para internarse en cam- 
pos que pueden ser menos conocidos. Asi sucede, por ejemplo, con 


los programas relativos al juego de ajedrez, 


El caso que aquí nos ocupa, utiliza una sencilla fórmula ma- 
temática para él cálculo de los palillos que debe quitar el 
ordenador (G). La fórmula es : 


Ie A - IN/ _N-1' (M + 1) 
M+1 M+1/] 


Si con unos determinados valores de N y M, G da un número dis 
tinto de cero, el ordenador gana la partida, pues en las tira- 
das siguientes se va a repetir esta circunstancia. Si, en cam- 
bio, G da cero, el ordenador debe quitar pocos palillos en es- 


pera del error del jugador. 


Para explicar la fórmula mencionada, vamos a llamar tirada 
al hecho de quitar palillos cualquiera de los contendientes 
(ordenador, jugador) y jugada al conjunto tirada de ordenador- 


tirada de jugador. 


El primer punto a tener en cuenta es que siempre se puede hacer 
que el número de palillos retirados en cada jugada, sea igual a 
(M + 1). Entonces el objetivo va a ser que partiendo de un núme- 
ro de palillos (Ny) y restándole G, se cumpla que el nuevo número 
de palillos que quede (No) sea, igual a K (M+ 1) + 1, donde K 


es el número de jugadas al final de las cuales quedará un palillo. 
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G=No = K(M+ 1) + 1 


de aqui se deduce : 


2) N, - 1 = K (M+ 1) + 6; 
3) N, - 1 G 
l = k + 
M+1 M+1 
N, - 1 
4) G = 1 2 (M + 1) 
M+1 


Ahora sólo resta demostrar que K es la parte entera de ES old 
M+1 


cosa que vamos a razonar a continuación. 


En la ecuación 3), se puede apreciar que 6 es menor que 
M+1 


l porque siempre se cumple que G es menor que (M + 1); como por 
otra parte K es entero porque representa el número de jugadas, 
la única posibilidad para que se cumpla la ecuación es que K 
sea la parte entera de je! ña y G la parte decimal. 


M+1 


Si la parte decimal es cero, es debido a que G es cero, lo que 
q 
quiere decir, que el ordenador no tendría que quitar ningún pa- 


lillo para quedar en situación óptima para ganar, 
Como por otra parte, las reglas del juego indican que el mínimo 


número de palillos que hay que quitar como mínimo en cada tirada 


es 1, en esta situación, el jugador llevaria las de ganar. 
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10 

Ad] 

20 

30 

240 

Sú 

70 

33 

E] 

100 
110 
120 
130 
140 
130 
209 
210 
220 
230 
235 
240 
2530 
260 
270 
280 
290 
300 
310 
320 
330 
390 
330 
2390 
370 
380 
2400 
2405 
2410 
42 

2430 
243% 
2240 
250 
480 
470 
475 
480 
485 
490 
500 
s190 
3500 
570 
380 
5900 
SS 
£00 
$10 


se 
sl 


PROGRAMA 


REM x JUEGO DE LOS PALILLOS x 
REM x FICHERO NUMERO 4 x 


ELS 

FRINTTAE(20)3"JUEGO DE LOS FALILLOS* 
ERINTTAE(29)3*2====oac=cmscomom==o==* 
SRINT "REGLAS CEL JUEGO" 

PRINT "a . 


FRINT*A) EL JUGADOR ELIGE UN NUMERO DE PALILLOS (N)> CON LA CONDICION*” 
ERENTOE DOSNSEA Y 

"RINT“E) EL JUGADOR ZLIGE EL NUMERO MÁXIMO DE PALILLOS (mM) —QUE SE ? 
FRINT"PUECEN QUITAR EN CADA TIRADA » CON LA CONDICION « N/4: M2 ).EL* 
FRINT'*MINIMO ES 1 .* 

PRINT"C) TAMBIEN SE PUEDE ELEGIR QUIEN EMPIEZA A QUITAR FALILLOS” 
FRINT"D) SE JUEGA ALTERNADAMENTE Y EL QUE COGE EL ULTIMO PIERDE +.” 
PRINT 

INFUT*CON CUANTOS FALILLOS QUIERE JUGAR*¿N 

IF (N-INT(N)=0)AND(N<22)AND(N>11) THEN 235 

PRINT"REPASE LAS REGLAS DEL JUEGO Y VUELVA A ELEGIR (N)* 

GOTO 200 a ; 

PRINT 

FRINT>CUAL ES EL NUMERO ' Maxima DE *LILLOS QUE SE PUEDEN ELEGIR EN” 
FRINT"CADA TIRADA" 5: INFUT M 

IF (M-INT(M)=0)AND(M>2)AND (Mex (N/4)) THEN 290 

PRINT*"REFPASE LAS REGLAS DEL JUEGO Y VUELVA A ELEGIR (M).* 

GOTO 240 pi 

CLS 

Z=1 

FOR X=3 TO Nxó STEF 4 

PRINTO (4945+3xZ)+Z5 mo 

Z=Z+1 

FOR Y=24 TO 38_, * 

SET(X>Y) y 

SET(X-1+ 191 

NEXT Y 

NEXTX 

PRINTOO, >? E 
PRINTIPRINT 

FRINTOO+* *"5:+INFUT"QUIEN EMPIEZA? (1)-JUGADOR. (2)-ORDENADOR”3E 

IF (Ex +2)AND(Ez>1) GOTO 400 

PRINTRO y * E 
FRINTIPRINT 

IF E=2 GOTO ..400 

PRINTOO+ “EMPIEZA USTED” 

FORI=1T0730:3NEXTI 

FRINTOO+”* "5+INFUT"ES SU TURNO. CUANTOS PALILLOS QUITA"3H 
FRINT2PRINT 

PRINTOO+»* : 
PRINTIPRINTIFRINT 

TF (H>0)A4ND(H<=M)AND(H-INT(H)=0) THEN 510 

FRINTO0,"SE HA EQUIVOCADO AL MARCAR*:3GOTO 460 

N=N=H 

K=H 

GOSUE 1009 

FRINTO3407 "QUEDAN" 3N3*FALILLOS Ñ 

IF N=1 GOTO 740 

GOTO 410 

ERINTOO+ "EMPIEZO YO" 

FORI=1TO07S0:3NEXTI 

FRINTOO» *JUECO YO . 
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630 
640 
6430 
660 
$70 
$380 
$90 
700 
710 


+” 
Zi 


730 
740 
739 
760 
999 
1000 
1010 
1020 
1040 
1050 
1042 
1070 
1080 


FORI=1T0S00:NEXTI 
G=t((N-1)/(M+1)) 
IF G=0 GOTO 470 
N=N-G:G0T0680 
G=RND(2) GOTO 440 

PRINTOO» *QUITO"505*PALILLOS* 
K=G 

95UE 1300 

FRINTO340> "QUEDAN *5N5*PALILLOS* 
IF N=1 GOTO 739 


TINT(U(N-1)/(M+1)))x(M+1) 


GOTO 470 

ERINTIO> "LO SIENTO HA FERDIDO E 
GOTO 999 

FRINTOO > "ENHORABUENA HA SANADO d 
GOTO 999 


FOR X=(6X(N+K)+1)TO(ó6XN+6) STEF-6 


FOR Y=21 TO 38 
RESET (X-3» Y) 
RESET(X-4,Y) 
RESET (X-S y, Y) 
NEXT Y 

NEXT y 

RETURN 


ve” 
o 


RELACION DIAGRAMA DE FLUJO - PROGRAMA 7 
—————— a SIG IIAMÍA, 


Lineas e la 30 a lo 156 


Bloque "reglas del juego" 


“introducir N" 

”oon mM" 

"dibujar palillos” 
"decidir, quién empieza" 
de decisión "quién empieza 
“empieza el jugador" 
"palillos que se quitan" 
"palillos que quedan" 


llamada a "subrutina de 
borrado" 


"quedan N palillos" 

de decisión "N = ]" 
"pierde el ordenador" 
"empieza el ordenador" 
"juega el ordenador" 
"calcula G" 


de decisión "G = f" 
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"Bela 235 
E 
"NA 
Y ¿Bl 


linea 4498 
líneas 458 y 464 
líneas de la 474 
línea 518 


línea 578 
línea 588 
linea 598 
linea 764 
líneas 698 y 614 
líneas 628 y 634 
línea 644 
línea 6568 


a 


la 


500 


Bloque "G = 16 2" línea 674 


e "palillos que quedan" línea 668 
si "quito G palillos" línea 688 
” "Gosub (A) no linea 76% 
5 "quedan N palillos" línea 714 
E de decisión "N = 1" líneo 724 
, "pierde el jugador" linea 749 


subrutina "borrar palillos" líneas de la 1848 a la 198% 
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JUEGO DE ALUNIZAJE 


NORMAS DEL JUEGO 


A) En este juego se trata de simular el alunizaje de una nave 
espacial. La acción de la gravedad del planeta, ejerce una 
aceleración que puede ser controarrestada por la acción del 


combustible al quemarse. 


8) Como punto de partida se toman valores aleatorios (dentro 
de un margen), de velocidad, altura y contidad de combus- 
tible. El juego consiste! entonces en tomar tierra con una 
velocidad lo más próxima a cero, sabiendo que el impulso 
debido a la combustión se produce cada segundo. Por esta 
razón, al final de cada segundo, se imprimen los nuevos 


valores de las tres variables, 


C) En el último segundo en que se toma tierra, se calcula la 
velocidad de choque que determinará la calificación del 
alunizaje; si la velocidad de choque supera un cierto va- 


lor, la nave se rompe. 


D) En ningún momento se debe dejar subir a la nave. Hay que 
tener esto en cuenta para no permitir en el programa un 


combio de signo de la velocidad. 
En la pantalla de video se dibuja la nave con los datos de 
las variables a su lado izquierdo. En la parte superior se 


imprimen los mensajes relativos a las normas del juego. 


Ántes de abordar el programa parece conveniente comenzar por 


un estudio del movimiento de la nave. 
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ESTUDIO DEL MOVIMIENTO 


Las ecuaciones generales del movimiento uniformemente acelerado 


son 
V = Vo + a.t V  : velocidad final 
Vo : velocidad inicial 
3 
H = Ho + Vo.t + m a.t? a  : aceleración 


—Tt  : tiempo transcurrido 
H — : altura final 


Ho : altura inicial 


Por convenio elegiremos como negativo el sentido hacia abajo 
de los vectores velocidad, aceleración y desplazamiento (al- 


tura) 


Al 

| 
La aceleración, puede tener los dos sentidos, en tanto que 
la velocidad y la altura sólo negativo y positivo respecti- 


vamente. 


La expresión de la aceleración en este caso particular viene 


dada por la ecuación : 
A = 20 - 5 


en donde Q es el combustible que se elige en cada segundo, 


por lo tanto A es constante para ese segundo. 
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Particularizando para t = 1 las ecuaciones generales del mo- 


vimiento se convierten en : 


V=Vo+A 


po ee 
tl 


Ho + Vo + A/2 


En combio, el cálculo de la velocidad de choque se realiza 
en el intervalo del último segundo, por eso t es distinto de 


1. La velocidad toma la expresión que seguidamente deducire- 


pan 

Du 
< 
tl 


Vo +A 
2 


1007 
mm 
o 
ú 


Ho + Vo,t + 1/2 A.t 


Despejando t en la segunda ecuación : 


O AT, 


A 


y sustituyendo en la primera se obtiene el valor de Y : 


Ye EN or il 


Lógicamente V debe tomar el signo negativo debido a que se 
ha tomado la decisión de que nunca pueda tomar el valor po- 
sitivo. Este es uno de los objetivos que debe cumplir el 


programa. 
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» A 
A 
, ES 


i 
j 
; 


DE FLUJO DEL DIBUJO DE LA NAVE 


Condiciones iniciales 


Xa79 : 2026 :vi35 1028 


jo 
0 
i 
' 
1 


RESET_ (89,21) y (89,22) 
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NOTA : 


Para seguir el diagrama de flujo del dibujo de la nave, se 
recomienda ayudarse de la hoja de trabajo para la pantalla 
de video. También ayuda a la comprensión de los bloques, 


imprimir y borrar variables. 


DIAGRAMA DE FLUJO DEL CALCULO DE LA VELOCIDAD DE CHOQUE 
ECO A A NR 


Calcular la 
raíz cuadrada 
de un número - 
positivo 


Asignar el valor de la 
variable de salida Y 
a la variable Y. 
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PROGRAMA 


“EM xXx JUEGO DEL ALUNIZAJE x 
23M x FICHERO NUMERO 3 x 


FRINT TAB(20)5* JUEGO. DEL ALUNIZAJE* 
FRINT TAR(20)5"eecccamanmomsoasaaz 
"KINT ME 
'FINT*NORMAS DEL JUECO* 

RINT* 


A 


a 


| 89 PRINT*A) EN ESTE JUEGO »USTED SE INTRODUCE DENTRO DE UN COHETE EN EL* 


¡ 78 PRINT"MOMENTO DEL ALUNIZAJE .LOS MOTORES ESTAN EAJO SU MANDO.LA QUEMA" 
' 190 PRINT*DE COMEUSTIELE OCASIONA UNA ACELERACION QUE SE OFONE A LA CAIDA. 
120 PRINT*"E) El OBJETIVO ES APLICAR ENCENDIDOS EN CADA SEGUNDO» PARA QUE" : 
150 PRINT*"SE LLEGUE A LA SUPERFICIE LUNAR CON UNA VELOCIDAD LO MAS PRO-* 


| 135 PRINT*XIMA A CERO. * 


1140 ERINT 

¡150 INPUT "PARA CONTINUAR FULSE UN CLANES 
11602 1F S<>1 SOTO 150 

| 176 TLS. 


¡180 OO TAND (10) :H2975+RND(S0) :C=57+RND(6) 
¡200 =793Z=26:NH=35:K=20 | 
¡210 XxX+1 y , 
220 K=K-2 
230 FOR Y=Z TO QU 
¡240 SET(X» Y) 
sd SET(X+K» Y) 
260 WEXT Y : a 
1270 ON X-79 GOTO 280:280,280+280,280+290,300+310,320 
se 2=Z-1+Hw=W-1:G0TO 210 p: 
70 ZeZ-2:60T0 210 
09 ¿5-2 HmbH+13GOTO 210 
10 2=Z-2160T0 210 
¿20 FOR Y=12 TO 35 
¡330 SET(X+1Y) 
398 NEXT Y 


330 RESET(89+21)RESET(89,22) 

09 PRINTOIP4» "VELOCIDAD M./S."5 
210 PRINTRB458» "ALTURA Mm... 
423 PRINTOSZ2 + "COMBUSTIBLE G.*; 


30 PRINTO406»U4; 
10 PRINTO470+H3 

¿50 PRINTOS3I4+05 

1/59 1FC=x0 THEN Q=03G0T0 3530 
402 PRINTOO»* 

490 PRINT 

O PEINTBO+* *; 

20 FRINT*QUE CANTIDAD DE COMEUSTIELE DESEA QUEMAR"; 
: ENFUT Q 

PRINTRO»* 
FRINTIPRINT 

F QA GOTO 486 

IF QC GOTO 480 

+= 2xQ=5 

2FU+Ax=0 GOTO 600 

PRINTOO + "ELIJA MENOS COMBUSTIBLE.” 
' PRINT*CON EL COMBUSTIBLE QUE ACABA DE ELEGIR» EL COHETE SUETRIA.* 
A 7>1T101000+NEXTI2:COTO 480 
200 EsC-Q+C=INT(CX10000)/10000 


10 LsH 
A 


í 


569 
570 
530 
390 
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620 
$30 
$640 
642 
644 
646 
6350 
670 
680 
690 
700 
710 
720 
730 
740 
7530 
760 
300 
826 
840 
86% 
900 
910 
920 
930 
940 
950 
980 
270 
980 
990 
992 
793 


HaH+0/2+USH=INT(HX1000)/1000 
N=U 

U=U+A tU=INT(VX1000)/1000 
PRINTO406 > * “3 
PRINTO470 + * . 
PRINTOS34,* . 
IF H>0 GOTO 430 
X=ABS (2XAXL-—NXN) 
GOSUE 30030 
V=Y:U=INT(UX1000)/1000 

Y=46 

FOR X=50 TO 120 

SET(X» Y) 

RESET(X»Y+1) 

NEXT x 

IFY=34 GOTO 800 

Y=Y-1:G0TO 710 

PRINTO386» "VELOCIDAD DE CHOQUE"; 

PRINTO406,-U; : 

PRINTO471, "003 | 

PRINTO5S34+0; , 

IF V<1 PRINTOO»"ALUNIZAJE EXCELENTE*":GOTO 990 

IF V<3 PRINTGO»"ALUNIZAJE BUENO":GOTO 990 

IF V<35 PRINTGO»"ALUNIZAJE REGULAR *:GOTO 990 

IF V<10 PRINTOO»*ALUNIZAJE MAS EIEN MALO":GOTO 990 

PRINTGO» *ALUNIZAJE DESASTROSO.SE QUEDA PARA SIEMPRE EN LA LUNA" 
X=78:Y=35 : 

XaX+]2Y=Y-1 h 

RESET(X»+ Y) ¿RESET(X + Y-1) 

IF X<98 GOTO 960 

FOR I=1 TO 2000:3NEXT 1 

ERINTOO»* .; 
PRINTOO»" "5: INPUT"PULSANDO UN (1) SE COMIENZA DE NUEVO*38 


-» mm. » 


1000 IF S=1 GOTO 170 
1010 COTO 992 

30030 IF X=0 THEN Y=0 ¿RETURN 

30040 IF X>0 THEN 3006060 

30030 PRINT"RAIZ CUADRADA DE UN NUMERO NEGATIVO" :STOP 
30060 Y=Xx.5:Z=0 

30070 We(X/Y-Y)x.35 

30080 IF(M=0)0R(W=Z) THEN RETURN 

30090 Y=Y+H3Z=x4:GOTO' 30070 
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ON DIAGRAMA DE FLUJO - PROGRAMA 


RELACT 
FO O PROGRAMA 


Bloque 


"Reglas del juego" 
"Introducir un 1" 
"Condiciones iniciales" 
"Dibujar nave" 

"imprimir variables" 

de condición " C= g" 
"introducir combustible" 
de condición "Y>0>Cc" 
“calcular aceleración" 


de condición "combia 
sentido de Y" 


"elegir otro valor de Q" 
"calcular combustible" 
"guarda H inicial" 
"calcular H final" 
"guardar Y inicial" 
"calcular Y final" 


"borrar valores de las 
variables" 


de condición "> gr 
"calcular V de choque" 
"dibujar aterrizaje" 


"imprimir variables 
finales" 


"calificación resultados" 
"romper la nave " 


"pulsando (1) nuevo 
juego" 


"Subrutina" 


Lineas de la 
líneas 154 y 
línea 189 

líneas de la 
lindas" 
línea 464 

lineos de la 
líneas 55% y 


línea 569 


línea 578 


líneos de la 


línea 698 
linea 618 
línea 624 
línea 638 
linea 649 


28 a la 149 
166 

28 a la 358 
450 ” ” 458 
498 a la 544 
555 

58% a la 595 


líneas de la 642 a la 646 


línea 658 


líneas de la 678 a la 69% 


líneas " " 


líneas 
líneas " " 


líneas 


u ”u 


lineas 


700 " 


800 uu 
95% " 
95% “ 


uz 


" 768 


” 869 
" 949 
” 99% 


"“ 1619 


líneas " " 34838 a la IDU 


JUEGO DE MUERTOS Y HERIDOS 


ZE ZRC e o o 0 vo co nm 0 2 o o e a 
o o O 0 LO A GU SE e sl co SO 2 e A a 


REGLAS DEL JUEGO 


El jugador juega contra el ordenador intentando adivinar un 


número de 3 cifras siguiendo las reglas siguientes : 


A) El jugador elige quién comienza a jugar (el ordenador ó 
él mismo). Para no dar ventajas a nadie se debería esco- 


ger de forma alternada el inicio de cada juego. 


8) Tanto el ordenador como el jugador eligen un número de 3 
cifras, con' los características de que el número no em- 


piece por cero y no se repita ninguna de sus cifras. 


C) El ordenador y el jugador escriben alternativamente números 
con el objetivo de adivinar el que secretamente guarda su 
contrario. Al cabo de cada tirada cada oponente debe infor- 
mar del número de muertos y heridos conseguidos (se entien- 
de por muerto la cifra acertada en su valor y posición sien- 


do herido, si sólamente se acierta el valor). 
D) Lógicomente gana al que primero consigue los 3 muertos. 
ACLARACIONES PREVIAS AL PROGRAMA 
O ROGRAMA 


Debido a la diversidad de enfoques diferentes que pueden darse 
a la resolución de este ejercicio, es conveniente hacer uso de 
la programación estructurada, porque esto ayuda a obtener una 

visión global del pregrama y además permite realizor modifica- 
ciones con relativa sencillez como se verá al final del ejerci- 


cio. 


Por otra parte, hemos de decir que vomos a utilizar una forma 
muy particular de impresión de resultados en la pantalla de 
video. Con objeto de facilitar al jugador la información de 
muertos y heridos conseguidos en cada tirada, así como el con 
trol de las mismas, se lleva a cabo una impresión en forma ta- 


bulada haciendo uso de las funciones gráficas conocidas. 


DIAGRAMA DE FLUJO GENERAL 


Preporación cel 
ajercicio y +iec- 
ción 2el numero 
secreto del orgs- 


Tiroda del 
ordenador 


¿Ha acer 
tado el juga 


¡ Gana el Gaona el 
ordenador: jugador 
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Este programa utiliza como subrutinas ; 


SUBRUTINA A SUBRUTINA B 


(8) Calcular muer 
tos y heridos 


- La subrutina B hace una llamada a otra subrutina. 


Generar un número 
aleatorio de 3 ci- ¡ 
fras diferentes que! 
no empiece por cero| 


Seguidamente se van a desarrollar los bloques : Preparación 


del ejercicio, Tirada del jugador, Tirada del ordenador. 


DIAGRAMA DE FLUJO "PREPARACION DEL EJERCICIO" 


Reglas del juego 


Introducir el dato 
de quién empieza 
Dibujar la tabla 


Guardar el número 
elegido 


ra 
Í 


i Llamada a la 
¿ Subrutina O) 
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DIAGRAMA DE FLUJO DEL BLOQUE "TIRADA DEL JUGADOR" 
FA DA DE JUGADOR" 


incrementar =) 
contador Je tirados 
Jel jugador. 


Imprimir en la 
table el valor 
del contador 


Introducir un n2 
de 3 cifras 


j 


Introducir de 
nuevo el ng 


1] 
| 


¿cumple ' 
las condicio= 
nes del enun- 
ciado? 


Escribir el número 
en la tabla 


Preparar la prueba 
de la subrutina 9 


Imprimir en la tabio 
el número de muertos 
y heridos. 
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Incrementar 2on- 
tador 3e tirogos 


imorimir el volor 
aa contador 


Llamadg a la subru- 


_nÚmero 
iguel a alguno 
de los tirados 
anteriormente? 


¿Cumple 
el n£ las 
condiciones de - 
muertos y heridos 
de los anteriores? 


Mamorizar el 
número generado 


¿Entran 

dentro de 
las posibili- 
dades? 


Escribir muertos y 
heridos en la toblo. 


Memorizar muertos y 
heridos. 
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A e 


e. 


Este diagrama de flujo explica el método que se ha seguido 
en el cálculo del número que tira el ordenador y puede re- — 


sumirse diciendo : 


- El ordenador genera un número aleatorio en la subrutina A 


que no empiece por cero y que no tenga cifras iguales. 


- La primera prueba que pasa es la pregunta de si se trata 
del primer número. Si es asi, el ordenador lo da como vá- 
lido, ya que en la primera tirada se puede decir cualquier 


número, 


- Si no se sobrepasa la primera prueba, quiere decir que no 
se trata de la primera tirada en cuyo coso se pregunta si el 
número al azar generado por la subrutina A ha sido ele- 


gido anteriormente. 


- Si el número no ha sido elegido anteriormente, el ordenador 
supone por un momento que es el número que ha pensado el ju- 
gador, en cuyo caso debe cumplir las condiciones de muertos 
y heridos de los anteriores que im alados (función 
realizada por el bloque "Memorizar el número"). Si pasa la 
prueba, tiene la posibilidad de acertar, posibilidad que es- 


tá en relación directa con el aumento de tiradas. 


Como puede apreciarse este método es un poco lento debido a 
que la subrutina puede repetir el número generado. Además si 
se introducen valores erróneos de muertos y heridos por el ju 
gador, el ordenador queda en un ciclo loco del que no puede 
salir. Más adelante se estudiará la forma de evitar estos in- 
convenientes. Si se estudia el programa tal y como está, es 
debido a que se desea resaltar la utilidad del diagrama de flu 
jo a la hora de efectuar modificaciones dentro de dicho pro- 


grama. 
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Al mismo tiempo, supone un ejemplo, como se verá más adelante, 
de la pluralidad de soluciones o enfoques diferentes que ofre- 


ce la programación, para resolver un determinado problema. 
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PROGRAMA 


REM XJUEGO DE MUERTOS Y HERIDUSx 
REM _xXFICHERO NUMER 2x 


DIM A(110) 

CLS 

PRINT TAB(18)5"JUEGO DE MUERTOS Y HERIDOS" 
PRINT TAE(18);*====ceccereccccocoessoccemsox? 
PRINT "REGLAS DEL JUEGO" 

a a co a rod : 


PRINT"A) EL ORDENADOR Y EL JUGADOR ELICEN UN NUMERO DE 2 CIFRAS DIS-* 
FRINT*TINTAS QUE NO EMPIECE FOR CERO." 

FPRINT . 
FRINT"E) DE MANERA ALTERNATIVA SE VAN TIRANDO NUMEROS E INFORMANDO 


FRINT*"DEL NUMERO DE MUERTOS Y HERIDOS ACERTADOS.” 
FRINT 

FRINT*C) GANA EL QUE ANTES CONSIGUE LOS 3 MUERTOS. * 
FRINT 

T=0:3J=0 


PRINT*QUIEN EMPIEZA?” 

FRINT"SI SE PULSA UN 1 (EL JUGADOR) Y CON UN 2 (EL ORDENADOR)”; 
INFUT E 

IF (EXSI)AND(E=5*2) THEN 120 

ELS ; 


Pe x= TO 127 


SET(X>13) 
SET(X>18) 
SET(X+47) 

NEXT X 

FOR Y=13 TO 47 : 
SET(0+»Y) 
SETS Y) 
SET(439+Y) 
SETUS32 Y) 


SET(63»Y) 
SETtea.r> 


SET(79 + Y) 


330 SET(107yY) 


SET(117,Y) 

SET(127 y Y) 

NEXT Y 

PRINTOI21» "TIRADA"; 
PRINTO329»"N. JUGADOR? 5 
PRINTOI43+"M.*5 
FRINTRI48+"H.*;5 
FRINTE3S3» "TIRADA"; 
PRINTOIG1+ "N.ORDENADOR” ; 
PRINTO37S+*"M.*; 
PRINTOGIDO»"H.,*; 
PRINTOO»+,* *; 

GOSUE 2000 
ACGIFACI)IACÓ)=A(Z):1A(7)=4(3) 
1F E=1 GOTO S50 

1? E=2 GOTO 800 
PRINTEC + "EMFIEZA USTED E 
FORT=1TCSO01NEXTI 

Y J+lIPRINTR(IBÓ6+ UM S4) 087 

ERINTOO + "INTRODUZCA UN NUMERO DE S CIFRAS VALIDO" 
FORI=1T01000:3NEXTI 

PRINTOG»* 

PRINTOO+" "5: INFUT*PRIMERA CIFRA"*5U 

PRINTOO+* "5: INFUT*SEGUNDA CIFRA*5Xx 

PRINTOO+* "53 INFUT"TERCERA CIFRA"5Y 

FPRINTEO +” k 

IF (U359)0RtX>9)0R(Y:>9) THEN 690 

LF COVUINT(V))2290)0kR((X-INT(X))<3>0)0R((Y-=INT(Y))20) THEN 698 
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670 IF (V<1)0R(U=Xx)OR(U=Y)OR(X=Y)OR(X<0)0R (Y0) THEN ¿90 
6809 GOTO 710 

6790 FRINTGO»"EL NUMERO NO ES VALIDO. ESCRIVALE DE NUEVO" 
708 GOTO 590 

710 FRINTR(UIPA+ IEA VE Y 

720 AC1)=ACD)IA(2IZA(G )IACZIZACT) 

7308 GOSUE 3000 

740 FRINTO(907+Jx64),M5 

730 FRINTR(412+Jx64)+H; 

760 IF M=3 GOTO 1200 

780 PRINTR0»*NO HA ACERTADO Y AHORA ME TOCA A MI* 

79% GOTO 920 

800 FRINTOO»* 

910 PRINTOO>+ "EMPIEZO YO" 

820 FORI=1T07S50:NEXTI 

830 PRINTOO+* 

940 PRINTGO+ "ESPERE A QUE CALCULE EL NUMERO” 

858 FORI=1T0S00:NEXTI 

860 T=T+1 

870 FRINTO(418+Tx649)+T; 

882% CoOsueE 20009 

899 IFT=1 GOTO 990 

900 FOR K=1 TO T-1 

919 IF (ACIOXK+1)=A(1))AND(ACIOXK+2)=A(2) )AND(A(LOxK+2)=A4 (3) )GOTOB80 
920 NEXT K 

930 FOR K=1 TO T-1 

940 VURACIONK+1)3X=ACLOXK+2) 1 Y=A4(10xk+3) 

950 GOSUE 3000 

960 IF(M=A(10XK+5))AND(H=A(10xXK+6)) GOTO 980 

970 GOTO 880 
280 NEXT K ¡ 
97. ALTOTILI)RACI)IACIONTAZIZACTI)2ACIOMT+3) 24 (3) 

1000 PRINTeS>"24I NUMERO ES EL S"5ACIDFA(2I5A(3)3" d 
1010 FORI=1TO?SB:MEXTI 

1020 PRINTO(AZO+SIET)A(1)FACZIGAC3); 

1030 PRINTOO» "INTRODUZCA MUERTOS Y HERIDOS?; 

1040 FORI=1T0750:NEXTI 

1050 PRINTRGO+* p » 

1060 PRINTOO+*" "5: INFUT*NUMERO pre MUERTOS” :M 

1070 PRINTEO+* .n 

1080 PRINTGO+" *;:INFUT*NUMERO DE HERIDOS * 3H 

1090 IF (M>3)0R(H>3)0R(M+H>3)0R (M-INT(M)<>0 10 H=INT(H)<>0) GOTO 103€ 
1100 IF(M<0>0R(H<0)0R(M=2)AND(H=1) GOTO 1038 

1110 PRINTRO+* , 

1120 PRINTO(I3P+44XT)>M3 

1130 PRINTO(994+64xT)+,H3 

1140 ACIOMT+)=MIAC10MT+6)mH 

1150 IF M=3 THEN 1180 

1169 FRINTOO+*ES SU TURNO"; 

1170 GOTO 560 

1180 PRINTOO+ "HE GANADO. MI NUMERO ERA EL*A(D)¡A(S)FAC7) 
1190 GOTO 1999 

1200 PRINTOO+ "ENHORBUENA» HA GANADO USTED" 

1999 GOTO 1999 

2000 FOR Iz1 TO 3 

2010 ACI)=RND(10)-1 

2020 NEXT Y 

2030 ITECACIEO)OR(A(1I=ALTI)ORCACI AID) )ORIA(2ZIALD)S THEN 2000 
20406 RETURN 

3000 M=0tH=0 

3010 IF V=4(1) GOSUE 400€ 

3020 IF X=At1) GOSUE 5000 

3030 IF Y=A4(i5 SOSUE S000 

3040 IF U=A(2) COSUE 5000 

3050 IF X=4(2) COSUE 4000 

3060 IF Y=4(2) GOSUB 5000 

3070 IF U=4(3) GOSUE 5000 

3089 IF X=4(3) GOSUE 5009 

3090 IF Y=4(3) GCOSUE 4000 

3100 RETURN 

4000 M=M+i 

4010 RETURN 

5000 H=H+1 

50102 RETURN 
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RELACION DIAGRAMA DE FLUJO - PROGRAMA 
a A IG AMA. 


Bloque "Reglas del juego" 


"Condiciones iniciales" 
"Introducir quién empieza" 
"Dibujar tabla" 


"Guardar el número elegido" 


de condición "Quién empieza" 


"Empieza el jugador" 


"Incrementar el contador 
de tiradas" 


"Imprimir el valor del con- 
tador" 


"Introducir un n2 de 3 
cifras" 


de condición "Cumple condi- 
ciones del enunciado" 


"Introducir de nuevo el nú 
mero" 


"Dibujar el n2 en la tabla" 


"Preparar prueba de la su-- 
brutina (B)"” 


"Llamada a la subrutina (B)" 


"Imprimir en la tabla muer 
tos y heridos" 


de condición "Ha acertado 
el jugador el número" 


"Turno del ordenador" 


"Empieza el ordenador" 


"Esperar cálculo del número" 


“Incrementar el contador de 
tirada" 


“Imprimir el valor del con 
tador" 


"Llamada subrutina (a) " 


de condición "¿Es la 19, 
tirada"? 


de condición "¿Es el nú- 
mero igual a alguno de los 
anteriores?" 
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líneas de la 1% a la 129 
linea 139 

líneas de la 144 a la 176 
líneos de la 24% a la 464 
línea 506 

lineas 519 y 528 

líneas 55% y 569 


linea 5746 
línea 574 
líneas de la 58% a la 649 
líneas de la 658 a la 674 


línea 69% 
líneo 718 de 


ms 


- linea 728 


línea 730 
líneos 748 y 758 


linea 769 

línea 784 

líneas de la 84% a la 838 
líneas 844 y 854 


linea 86% 


línea 874 
linea 88% 


linea 898 


lineas de la 9% a la 928 


Bloque de condición "¿Cumple el número 
las condiciones de muertos y 
heridos de los anteriores?" líneas de la 934 a la 988 


"Memorizar el número generado" línea 998 
"Imprimir el número" líneas de la 184% a la 1828 
. "Introducir muertos y heridos" líneas de la 1838 a la 1886 


de condición "Entran dentro 


de los posibilidades" líneas 1998 y 1108 
A "Escribir muertos y heridos 
en la tabla" líneas 1124 y 1139 
ay "Memorizar muertos y heridos" línea 1149 
$ de condición "Ha acertado el 
ordenador el número" línea 1158 
” “Turno del jugador" línea 1164 
$ "Gana el ordenador" línea 1184 
' "Gana el 'jugador” linea 1268 
" "Subrutina (A) as líneas de la 2804 a la 2849 


a "Subrutina " líneas de la 3BBB a la 5818 


Si se ha editado el programa correctamente y se ejecuta se 
puede apreciar en términos reales su lentitud de respuesta en 
las últimos tiradas del ordenador. El motivo ha sido explicado 
en páginas anteriores. 

Este es otro de los puntos importantes a tener en cuenta en 


la elaboración de un programa : "su rapidez", 


En las páginas sucesivas se va a mostrar una variante de pro- 
gromación que imprime mayor velocidad al programa. Además va 
a ser posible detectar la posibilidad de que el jugador intro- 


duzca errores de información en el juego. 


La idea consiste en combipr el generador de números al azar, 
por otro sistema que no repita el número. Un contador cumpli- 
ría perfectamente este requisito; sin embargo, si se elige un 
contador lineal (del ]1 al 999; por ejemplo), el jugador sabría 
que eligiendo el n2 "987", al ordenador le costaría mucho acer 
tarle puesto que antes tendría que probar con todos los ante- 
riores, y desde luego, nunca existiría la posibilidad de que 


acertara en las primeros tiradas. 


El contador que se va a elegir, tiene la primera cifra aleg- 
toria. 

Cuando este contador haya generado todos los números, si se 
da la circunstancia de que todavía no ha acertado el número, 
sucede, sin duda que se han introducido errores en la infor 


mación de muertos y heridos por el jugador, 
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DIAGRAMA DE FLUJO DE LAS MODIFICACIONES 


Bloque incrementar 
si contodor 


1 
| 
ETPETOO TE 


¡ 
| 
i 
| 
! 
| 
| 
' 


! ¡ 

j ¡ 

j 1 

i ¡ 

] j 

3 1 
| 

; 

o 

¡ | 


los condiciones de 
mwertos y heridos 
de 108 tds. e 
teriores? 


Merorizar si 
número generado 


PROGRAMA 


FEM xXJUEGCO DE MUERTOS Y HERIDOSx 
REM XFICHERO NUMER 2x 
DIM A(110) 
COLS 
FRINT TAB(18)5”* JUEGO DE MUERTOS Y HERIDOS" 
FRINT TAR(18); "==sse=sces==ececcercccrmeccece=* 
FRINT *REGLAS DEL JUEGO” 
PRINTO ' 
FRINT*A) EL ORDENADOR Y EL JUGADOR ELIGEN UN NUMERO DE 3 CIFRAS DIS-* 
FRINT'"TINTAS QUE NO EMFIECE FOR CERO.* 
FRINT 
FRINT"E) DE MANERA ALTERNATIVA SE VAN TIRANDO NUMEROS E INFORMANDO * 
FRINT"DEL NUMERO DE MUERTOS Y HERIDOS ACERTADOS.” 
ERINT 

FPRINT"C) GANA EL QUE ANTES CONSIGUE LOS 3 MUERTOS. * 
PRINT A . 
T=0:J=0:N=0 

FRINT'*QUIEN EMFIEZA?”* 

FRINT'*SI SE FULSA UN 1 (EL ¿JUGADOR) Y CON UN 2 CEL ORDENADOR)”; 
INFUT E : 

IF (Ex *1)AND(E-=0*2) THEN 120 

CELS 

FOR X=0 TO 127 

SET(X»13) 

SET(X»18) 

SET (X47) 

NEXT Xx 

FOR Y=13 TO 47 

SETCUDIY) 

SELL. 

SET( 43), Y) 

SETLCIZ YO 

SET(63+Y) 

SET(¿4+Y) 

SETCZO) Y) 

SEVLEPLOZIVS 

SET(117 + Y) 

SETUTZZ SY) 

NEXT Y 

FRINTOCO321» "TIRADA"; 

FRINTRIZO + "N, JUCADOR*5 

FRINTCEIAD>"M,";5 

PRINTOI48+"H.,*5 

FRINTOISI > "TIRADA'; 

FRINTO361 >» "N.ORDENADOR" 5 

FRINTOI7S+"M.*5 

PRIWTRIDOO y NU. *i 

PREN.O6b2» 

GOSUE 2000 

ArS)=ACÍ)ALS)=A(C2I)1A(7)=A(3) 

IF E GE ESO 

1F E=£ GOTO 306 

FRINTRO+ "EMPIEZA USTED F 
FORI=1TOSOU3NEXTI 

deJ+1 ¿FRINTO (385436) 86 

FRINTOO+ "INTRODUZCA UN NUMERO DE 3 CIFRAS VALIDO* 
FORI=1T01000*NEXTI 


FRINTEO+* 
FRINTRO+* "53 INFUT*FRIMERA CIFRA*3U 
FRINTRO»+* *>5¡INFUT"SEGUNDA CIFRÁ”*;X 


274 


$30 FRINTEO+" *";3INFUT*TERCERA CIFRA”;Y 
5390 FRINTOO»* E 

650 IF(VU:9)0RCX=9)0R(Y:*9) THEN 690 

66D IF((V-INT(V 30708 ((X-INT(X))<50)0R(C(Y-INT(Y))2>0) THEN 490 
$70 IF(V=1)0R(U=X)OR(V=Y)OR(X=Y)ORiX=0)0R(Y-0) THEN 490 
688 COTO 710 

570 FRINTGO>"EL NUMERO NO ES VALIDO. ESCRIVALE DE NUEVO" 
720 GOTO 590 

710 FRINTO(IPI+JIREG)VXGY 

720 AC1)=A(D)IACZ)I=AL6)LALBIZALT) 

739 COSUE 3000 

790 FRINTO(907+Jx69)+M3 

730 PRINTR(112+3x64)>H; 

760 IF M=3 GOTO 1200 

780 FRINTGO+"NO HA ACERTADO Y AHORA ME TOCA A MI" 

79% GOTO 820 

3900 FRINTEO»* 

310 FRINTOO+ "EMFIEZO YO* 

820 FORI=1T0750:NEXTI 

230 PRINTGO+” 

840 FRINTRO>+"ESFERE A QUE CALCULE EL NUMERO" 

850 FORI=1TOS00:3NEXTI 

860 T=T+1 

870 PRINTR(418+Tx64)yT;5 

880 IF N=0 GOTO 4000 

890 IF A(10x(T-1)+5)=0 GOTO 4000 

909 IF L:98 GOTO 6000 

910 GOTO 6110 

920 IF T=1 GOTO 990 

930 FOR K=1 TO T-1 

990 V=ACLOXK+1)3X=AC]0xXK+2):Y=A(10xK+3) 

950 GOSUE 3000 E ms. 

960 IF(M=A(10xK+5))AND(H=A4(10xK+6)) GOTO 980 

970 GOTO 900 


980 NEXT K 
9790 ACÍ10XT+1)=A(1):ACL1OXT+2)=A(2)1A(10xT+3)=A4(3) 
1000 FRINTOO+*MI NUMERO ES EL SS +ACIISACZIFACDO 5" : 


1010 FORI=iTO07S50:NEXTI 

1020 FRINTE<IZA+GAATI ACID FAC2ZIFACD)5 

1030 FRINTEGO+ “INTRODUZCA MUERTOS Y HERIDOS"; 
1040 FORI=1T0750:NEXTI 


1050 FRINTOO?” 3 
1060 PRINTEO+* *+ 2 INPUT "NUMERO DE MUERTOS" :;M 
1070 FPRINTRO»" , 


1080 PRINTOO+" *5:+INFUT"NUMERO DE HERIDOS"3H 

1090 IF (M3) 0R (H>3)0R (M+H>3) OR (M-INT(M)<30)0R(H-INT(H)<%0) GOTO 1030 
1100 TF(M-0)0R(H<0)0R(M=2)AND(H=1) GOTO 1030 

1110 PRINTOO»* > 

1120 PRINTO(439+64xT)>M3 

1130 FRINTE(494+64xT)+H; 

1140 AC1IOXT+S)=M:AC10xXT+6)=H 

1150 IF M=3 THEN 1180 

2150 FRINTOO+"ES SU TURNO"; 

LU SEDO SO 

1186 FRINTOO+ "HE GANADO. MI NUMERO ERA EL TIACIISACÓ)SA(7) 
210t SOTO 1999 

1200 FRINTOO+ "ENHOREUENA» HA GANADO USTED* 

A e 

2090 FBR T=1 TO 3 

2010 ACII=RND(10)>-1 

2020 NEXT I 

2030 IF(A(1)=0)08K(AC1)=A(2))0R(ACL1IZACI))ORIA(2ZI=A(2)) THEN 2000 
2040 RETURN 

3000 M=0:H=0 

3010 IF V=A(1) GOSUE 4000 

3020 IF X=A(1) GOSUE 5000 

3030 IF Y=A(1) COSUE 5000 

3040 IF U=A4(2) COSUE 5000 
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3030 IF X=4(2) COSUE 4000 

3060 IF Y=A4(2> COSUE 5000 

3070 IF VU=A(3) GOSUE 5000 

3080 IF X=4(3) GOSUE 5000 

3090 IF Y=4(3) GOSUE 4000 

3100 RETURN 

4000 M=Mm+1 

2010 RETURN 

3000 H=H+1 

3010 RETURN 

6000 N=N+1 

6010 IF N=10 GOTO 4200 

6020 IF N=1 GOTO 4080 

6030 A(1)=RND(9) 

6040 FOR I=1 TO N-1 

$050 IF A(1)=A(100+1) GOTO 4030 
6060 NEXT I 

6070 GOTO $090 

6080 AXCI)=RND(9) 

5090 ACI100+N)=A(1) 

6100 L=0 

6110 A(1)=A(100+N) 

6120 L=L+1 

6130 IF L98 GOTO 6000 

6140 A(2=INT(L/10) 

6150 IF A(2)=A1(1) GOTO 6120 
$150 AI)=L-10x4(2) 

6170 IF A(3>)=4(1) GOTO 6120 
6180 IF A(3)=A(2) GOTO 6120 
6190 GOTO 920 

6200 FRINTEGO» "REVISE MUERTOS Y HERIDOS.SE HA COMETIDO ERROR .* 
oc10 PRINT“EL JUEGO NO ES VALIDO»HAY QUE COMENZAR UNO NUEVO. * 

é220 GOTO 1>>9 
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INTRODUCCION 


El título de este apartado refleja en buena medida el objetivo 
perseguido. Evidentemente, el campo cientifico-técnico es tan 
amplio y sofisticodo que cada dia se requiere un grado de espe- 
cializoción mayor; de cualquier forma, resulta imprescindible 
para acceder a él, el dominio de ciertas materias básicas tales 
como matemáticas, física, etc.... Estas materias, constituyen 
sin lugar a dudas la piedra angular de cualquier desarrollo 
técnico o de investigación y su estudio se ha generalizado a 


casi todos los tipos y niveles de enseñanza. 


Determinados temas de estas; áreas, a menudo resultan dificiles 
de asimilar por el alumno debido la su carácter abstracto. Aqui 
es donde pensamos que el ordenador puede ofrecer alternativas 


de ayuda importantes. 


Una de las principales características del ordenador reside en 
su rapidez de cálculo. Además permite visualizar procesos de ma- 
nera secuencial. Estas dos cualidades constituyen la base de 


este apartado, en el estudio de procesos de cálculo, 


Entendemos que existe una infinidad de temas o casos que podrían 
ser objeto de estudio y aplicación en este apartado; por ello 

se van a tratar sólo algunos atendiendo a un criterio de im- 
portancia, todo ello sin olvidar el nivel de enseñanza al que 


va dirigido. 
El apartado puede constituir una fase intermedia entre el apren 


dizaje del lenguaje BASIC I y la introducción al BASIC 11 y 


otras aplicaciones concretas. 
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CALCULO DE LIMITES 


A o q 010 00 e o o 0 e so e 
e e 2 2 Os cs a 


Valiéndonos de nuestro microordenador, podemos adquirir el 


concepto de límite de una sucesión, sin gron dificualtad. 


Una sucesión es un conjunto de números, que puede responder 
a una ley matemítica. 


Por ejemplo, el conjunto de números 


se puede obteyer haciendo An=.2_= 1 y dándo valores 


sucesivos ar, tales como 1, 2, 3, 4 , .... 


Si seguimos dando valores «a n, los términos que obtenemos se 
van acercardo cada vez más a un número fijo, que en este caso 


parece ser la unidad. 


Diremos que el límite de la sucesión anterior es 1, si podemos 
hacer que la diferencia entre 1 y un término suficientemente 
avanzado de la sucesión sea en valor absoluto menor que cual- 


quier cantidad por pequeña que sea. 


Hagamos un programa que puedo servirnos para comprobar si una 
sucesión cualquiera An tiene un límite determinado L. Para 
ello supongamos conocida la relación _An + 1_ F(N) 

An 


Llamemos A, al primer término de la sucesión y Da la desvia- 
ción máxima que desecmos tenga el término N-símo de nuestra su- 
cesión respecto del limite L. El diagrama de flujo correspon- 


diente a nuestro programa será el siguiente : 
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a] 
: Introducir D y L| 


Hacer Án 


Escribir 
An y n 


Examinando con atención el diagrama observaremos que si el 
límite escogido L es el verdadero, podemos acercar a él tanto 
como queramos el término N-simo de nuestra sucesión. Basta 
para ello con tomar un término suficientemente avanzado de la 
misma y esto lo consigue automáticamente el bucle que permite 


el incremento sucesivo de N. 


En el ejemplo a que haciamos referencia al comienzo de este 


apartado, la relación entre An ¿ An es la siguiente : 
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Como se aprecio será preciso utilizar la subrutina de la función 
exponencial. ¿sta subrutina utiliza internomente las variables 


E,L,A,B,C. Las entradas son X,Y y la salida P. 


El combio de variables es el siguiente : a L se le asigna S, 


a A(N) se le asigna T. 
PROGRAMA 


10 REM xXRESTUDIO DE UNA SUCESIONX 

15 REM xXFICHMERO (9)x 

20 N=i 

30 INFUT*CUAL ES EL VALOR DE LA DESVIACION MAXIMA"+?D 
33 PRINT 

40 INFUT"*CUAL ES EL SUPUESTO VALOR DEL LIMITE"3S 

50 =.3 . p 

60 IF AS(S+T)ZD THEN 110 

70 Y=N+1:X=2GO0SUE 301203Z=P-1 

80 Y=N?X=2?GOSUE 30120:4W=2x(P-1) 

90 T=TiZ/H 

100 N=w+1:G0TO 60 

110 PRINT 

115 FRINT"EL TERMINO At(*3N5*%) VALE *5T 

120 END : 

3000 END . E 

30109 REMXEXPONENCIACIONX INFUT X»+Y30UTPUT FP 

30110 REMXTAMETEN USA INTERNAMENTE E»L»ArEB»CXx 

30120 IF X=0 THEN F=093RETURN 

30130 F=1:1IF Y=0 THEN RETURN 

30140 IF(xX<B)ANDOY-INTIY2=0) THEN F=1-2xY+4xKINT(Y/2):X=-X 
30159 GOSUE 30190;X=YxL3GOSUE 30230. 

301650 P=FXE:RETURN e 

30170 REMRXNATURAL £ COMUN xINFUT XyOUTPUTL »X 

30173 REM SALIDA L ES LOG NATURÁLy SALIDA X ES LOG COMUN 
30180 REM TAMETEN UTILIZA A»E»C INTERNAMENTE 

30190 E=031F X<0 THEN PRINT*LOG INDEFINIDO EN*3X53STOF 
30193 A=1iE=23C=,5 

30200 1F X3=A THEN X=CxXXiE=E+A3COTO 30200 

30205 IF X2C THEN X=ExXX3E=E-AGOTO 30205 

30210 X=(X-+707107)/(X+.707107)$L=XxX 

302135 L=t((.398979xXL+,961471)xL+2.838539)xX+E-.3)x.,493147 
30220 IF ARES(L)I1E-64 THEN L=0 

30225 X=LxX.4342945 RETURN 

30240 REMXEXFONENCIALX INFUT X»OUTPUT E 

30245 REM TAMEIEN USA INTERNAMENTE A»E Xx 

30250 IF X=0 THEN E=1 RETURN 

302353 1F INT(1,9427xXX)126 THEN PRINT *SOBRERRANGO" ¿STOF 
30260 1F X<0 GOTO 30280 

30265 E=1iA=1B=0 

30270 IF A:.00001 THEN RETURN 

30273 A=ARXX/(E+1)1E=E+A1B=E+1:C0TO 230270 

30280 X=-XiCOSUE 302652E=1/E+RETURN 
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CALCULO DE FUNCIONES "SUMA DE SERIES" 


A e e A 
a A 


En matemáticas, se estudia la fórmula de Taylor como método 
de cálculo de funciones. Un ejemplo de ello, puede consti- 
tvuir el cálculo de la función exponencial e* cuya serie de- 


sarrollada en serie de Taylor viene dada por la expresión : 


x > 2.2 n 
TE ESE E » La + Ro (1) 
EY n! 


Rn es lo que se denomina "término complementario" y su valor 


tiende a cero para valores grandes de n 


Lim  Rn(x)-—*0 
n-—>00 


Como consecuencia de lo que se acaba de decir, cuanto mayor 
es el número de sumandos de la serie, esta se aproximará más 


a la función. 
El cociente entre dos términos sucesivos de la serie valdría : 


n+1 n 
x 


».o 
i 


(n+1)! n! n+1 


A x 
Se puede escribir un programa que calcule e” controlando el 
error,lo cual se puede conseguir haciendo que el término n-simo 


sea inferior a un cierto valor prefijado. 


El diagrama de flujo será el siguiente : 


Patala? 


REM x SUMA DE SERIE x EXFONENCIAL 

INFUT"*CUAL ES EL VALOR DE X*"3X 

INPUT"*CUAL ES LA DESUIACION*5D 

S=13A=13N=0 

IF A“D PRINT"EL VALOR DE LA SERIE ES:i*3 SI¿STOP 
ASAXX/(N+1)3S=S+AIN=N+13G0T0 50 

END 


PREGUNTAS 


¿Cuál es el valor del número e? 


¿Para qué valor de D se obtienen 6 cifras exactas de este 


número? 


EJERCICIOS PROPUESTOS : 


1- Crear un programa que calcule la función trigonométrica 


seno x y otro para cos Xx. Las series son : 


7 7 
E A A AS 
3! 5! A 
2 E 
PP A Ll O Rn(x) 
2! 4! 
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RAIZ DE UNA ECUACION 


e A A LS, Le Y e e A O MT CS A 0 
O a 


Con la ayuda del microcomputador, puede resultar sencillo el 


cálculo de la raíz de una ecuación. 
La ecuación : 
x + log (x) = 0 
tiene una raiz en el intervalo 0Lx <1. Se puede escribir 


un programa en BASIC que encuentre esta raiz y la escriba con 


un número determinado de cifras decimales exactas. 


El método a seguir es el siguiente : 


Para valores pequeños de x, F(x) = log (x) cuyo valor abso- 


luto es grande y su signo negativo. Para x = 1, F(x) = l. 


Según esto, debe haber algún valor de x entre x= 0yx=1 


para el que F(x) tiene que ser cero. 


Si se hace A = 1 y 8 = 8.0081 y se escoge un valor de x en 
la mitad de ese intervalo, (x = (A + B)/2) y se pueden sacar 


las siguientes conclusiones : 


19) Si para ese valor de x , F(x) tiene el mismo signo que 


F(A), la raíz de la ecuación está entre B y x, fig a). 


22) Si,en combio, para ese valor de x, F(x) tiene el mismo 
signo que F(B), la raiz tiene que estar entre x y A, 
fig b). 


Fig. a) 


El método de cálculo consistiría en hacer A =x si se da el 

primer caso ó B = Xx si se da el 22 y hallar de nuevo el valor 
% = (A+ B)/2. Este proceso tendría que ir repitiéndose hasta 
que el valor A sea inferior al error relativo que se 


fije. 
NOTA : 


Si se tiene un nivel BASIC 11, no será preciso hacer uso de la 
subrutina "Cálculo de logaritmos" y bastará con usar la función 
ABS(x). En el BASIC 1 hoy que tener en cuenta las variables in- 
ternas que intervionen en la subrutina y las de entrada-salida. 
En general se pueden ejecutor todos los programas de nivel 
BASIC 1 en el BASIC 11, con la ventaja por parte del nivel 11 
de que resulta más sencillo programarlos y además es mucho más 


rápida su ejecución. 
£l BASIC NIVEL 11 posee coracterísticas propias (comandos, fun- 
_ ciones, etc...) que le convierten en un lenguaje muy potente 


en relación al nivel BASIC 1. 


A continuación se ofrece el diagrama de flujo : 


noz 


Introducir ERROR 
relativo R P 
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[Cálculo de | 


G, y error relativo. 


PROGRAMA 


10 
11 
30 
30 
30 
30 
30 
30 
30 
30 
30 
30 
30 
30 


REMXCALCULO DE LA RAIZ DE UNA ECUACIONXx 
REMXECUACION F(X)=X+LOG(X)x 
INPUT"*CUAL ES EL VALOR DEL ERROR RELATIVO"3R 
D=,001:H=1 
F=(D+H)/2 
IF AES((D-H)/H)<R GOTO 100 
X=F¿GOSUE 301903G=F+L 
IF G<0 THEN D=F:GOTO 50 
H=F 3070 50 
0 PRINT*LA RAIZ VALE"3F 
0 PRINT"EL ERROR RELATIVO ES*5AES((D-H)/H) 
000 END 
170 REMXNATURAL £ COMUN xINPUT X»+OUTPUTL»X 
175 REM SALIDA L ES LOG NATURAL» SALIDA X ES LOG COMUN 
180 REM TAMEIEN UTILIZA A»E+C>E INTERNAMENTE 
190 E=03IF X<0 THEN PRINT"LOG INDEFINIDO EN*"5X3STOFP 
195 A=13B=23C=,5 
200 IF Xo=A THEN X=CxX3E=E+A3GOTO 30200 
205 IF X<C THEN X=EXX3E=E-A7GOTO 30205 
210 X=(X-.707107)/(X+.707107)3L=XxX 
215 L=(((,598979xL+,961471)XL+2,88539)*X+E-.5)x.693147 
220 IF ARS(L)Z1E-é6 THEN L=0 
225 X=Lx. 43429453 RETURN 


EJERCICIO PROPUESTO 


1 - 


Elaborar un programa que calcule las raices reales del 


polinomio  : 


A A DA 
20 20 20 20 


teniendo en cuenta que una de ellas se encuentra en el in 


tervalo (0—»1) y la otra en el (0-1). 
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CONCEPTO DE DERIVADA 


o a A A O Po A e 0 e e sc o a a 
A a sm o Cm OO ar a o o o 


VELOCIDAD 


Aunque la derivada es un concepto matemático es más práctico 


y pedagógico su estudio desde la Fisica. 


Todos tenemos idea de lo que es la velocidad. Decimos que el 
velocímetro de un automóvil está graduado en Km/hora y nos 
resulta sencillo el concepto de velocidad media, que obtene- 


mos dividiendo el espacio recorrido entre el tiempo empleado. 


El problema surge cuando intentamos encontrar el significado 
de algo tan sencillo como : "Si en este momento volamos a 
900 Km/hora". 


Si decimos "en este momento", quiere decir que no se trata de 
una velocidad media, sino de una velocidad instantánea. ¿Y 
que es velocidad instantánea?. La respuesta a esta pregunta 


surge en forma de límite. 


En efecto, supongamos que a partir de un cierto instante to 
transcurre un tiempo At durante el cual, el móvil considerado 
recorre un espacioAS. La velocidad media durante el intervalo 


de tiempo considerado es : 


AS 
At 


Vm 


Para hallar la velocidad en el instante to, debemos hacer At 
lo más pequeño posible, razón por la cual podremos definir 
la velocidad instantánea para t = to como 


AS 


V =. lim a 


At+0 
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La definición a que hemos llegado sin pretenderlo, es la deriva 


da de la función S respecto de t para t = to y se expresa así 


Consideremos un móvil lanzado con velocidad inicial Vo = 8 m/ 
: de ER , 
seg. y sometido a una aceleración a = 10 m/s . El espacio re- 


corrido en el tiempo t, vale 


Eo AS Ao L 10 pe = 8t + 512 


2 


Supongamos que sólo disponemos de esta función y que deseamos 
hallar la velocidad para distintos valores de t. Comencemos 
por t= 1 para el que S = 13. Si a partir de t = 1 transcurre 
una décima de segundo, el nuevo valor de t será t = 1,1 en 


cuyo casoS=8.1,1+5. 1 1% = 14,85 ; Asi pues : 


ACOSTI"L=01 
AS = 14,85 - 13 = 1,85 
a Rd 0 1855 
At 0,1 


Se comprende fácilmente, que dando valores más pequeños a At, 
nos acerquemos más al verdadero valor de V. Veámoslo con el 


siguiente progroma : 
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PROGRAMA 


REM x CONCEFTO DE DERIVADA x 
PRINT"*SE DESEA CALCULAR LAS VELOCIDADES INSTANTANEAS EN UN INTERVALO?” 
FRINT"RESFONDER CON UN SI O CON UN NO”5 
INPUT AS 
IF (A$<5*"SI")AND(AS<"NO") GOTO 20 
FRINT 
IF A$="SI" THEN 160 
FRINT"SE VA A FROCEDER ENTONCES A CALCULAR LA VELOCIDAD EN UN INS-* 
PRINT"TANTE T?2* 
FRINT 
INFUT"CUAL ES EL VALOR DEL INSTANTE DESEADO"3A 
INFUT"CUAL ES EL INCREMENTO DE TIEMPO*"3C 
D=A:?¿GCOSUE 300 
FRINT*VELOCIDAD M/S.*+"*TIEMFO S.*"» "INCREMENTO DE TIEMPO S.* 
FRINT S/C»rA»C ¿GOTO 280 
FPRINT"EL INTERVALO COMIENZA EN EL INSTANTE A-SEGUNDOS Y TERMINA EN* 
FRINT*EL INSTANTE E-SEGUNDOS* 
FPRINT ; 
INFUT*CUAL ES EL VALOR DE .A (EN SEGUNDOS)*“3A 
INFUT"CUAL ES EL VALOR DE E (EN SEGUNDOS)>";E 
INFUT "CUAL ES EL VALOR DEL INCREMENTO DE TIEMFO EN SEGUNDOS*3C 
CLS 
FRINT"VELOCIDAD M/S.*»*TIEMPO S,”» "INCREMENTO DE TIEMFO S.* 
D=A . 
FOR I=A TO E STEP (E-A)/10 
GOSUE 300 
FRINT S/CyD»C 
D=D+(E-4)/10 


MAN ESCTo E 


END 

x=D+C 

S= (BXX+IMXXMX )-(8BXDESKDID ) 
RETURN 
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Obtener mediante el programa anterior, los valores de Y parao 
diferentes valores de t. Observar que al dar menores incremen- 
tos a t (At), los resultados se acercan más al valor exacto. 


Los valores exactos corresponden a la función Y = 8 + 10t. 


NOTA : 


No se deben escoger valores de At demasiado pequeños porque 
el error que comete el ordenador al efectuar las operaciones 
puede ser significativo y alterar el resultado de manera im- 


portante, 


ACELERACION 


En el programa anterior, combiamos la función S(t) por la 


V(t)= 8 + 10 t, lo que equivale a combiar la línea 318 
310 S= (8 + 19x*X) - (8 + 19 xD) 


Procediendo del mismo modo que antes, obtendremos valores co- 


rrespondientes a dV/dt en lugar de dS/dt. 
¿Pero qué representa dV/dt?. A partir de la definición que 


hemos visto de derivada, podremos escribir. 


dV__ lim AY 
dt At=0 At 


Pero es la aceleración media experimentada por un móvil 


2x8 


en un tiempo At. De esta forma : 


dv lim AY qe ; 
a . —— = gceleración media 


dt At—>0 At 


'eTeto] 


Ejecutando el programa de derivación para la función 

V = 8 + 10t y dándo a t distintos valores, llegamos a una 
conclusión lógica. La aceleración obtenida no es sino loa 
elegida al comienzo del ejercicio para formar la función 
Son. 


NOTA : 


Hay que cambiar las líneas 228 y 144. Donde pone VELOCIDAD 
M/S, se debe escribir : ACELERACION. 
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MOVIMIENTO ARMONICO SIMPLE 


a e A A A CE E 0 a A 0 Se o 4 o 
A A A A O O e O A ms e ct a a a o cn in 


Nada mejor para completar el concepto de derivada trsteto 

en el ejercicio onterior, que mediante el estudis : 

nómeno fisico como el del enunciado. Existen gran cantidad 
de ejemplos fisicos de movimiento armónico simple entre los 
que se encuentran : El movimiento de una masa atada a un 
muelle, el ejemplo del péndulo, etc... Aquí nos vamos a fijar 


sin embargo, en uno muy sencillo que simplifica los cálculos. 


La figura a) muestra una pelota atada por una cuerda (R) que 
gira a velocidad angular constante w sobre el punto "0", 
El desplazamiento de la sombra de la pelota sobre el eje X 


constituye un claro ejemplo de movimiento armónico simple. 


La abcisa x recibe el nombre de elongación y tendrá por valor : 
X= R cos Q 


El ángulo girado por el radio vector que une el centro del 


circulo con la pelota crece uniformemente, por lo que : 
0 = wt 

Sustituyendo este valor en la expresión anterior obtenemos 
X = R coswt 


Hemos establecido una relación entre el desplazamiento X de 
la sombra y el tiempo t. Así pues, X = f(t) 
Por otra parte w es igual a 2/7f donde f es la frecuencia 


(ciclos por segundo). 


Recordando páginas anteriores .. 


yd lim AX__ aX 


At+=0 At dt 


otra nomenclatura, V= f'(t) 


ó si se prefiere utilizar 


De esta forma a= V'(t) 6 lo que es igual f''(t). Como se 


sabe la derivada de (sen x) es igual a (cos x dx) y la de 


(cos x) es igual a (- sen x dx). 


Resumiendo : 


Desplazamiento X = f(t) = 
Velocidad LV= ft) - 


Aceleración A =4"(t) = 


Es Ru? 


R cos wt 


- R w sen wt 


cos wt 


Se puede elaborar un programa que represente estas funciones 


en forma gráfica, de forma que dé entrada a valores de w y Xo. 


Estos valores no deben sobrepasar la unidad. 
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Introducis valor 

del RodioR 1 

Introducir valor 
Ha 


¿Se 
desea col 
¿cular x2 


SI 


deseo repre 
sentación grú 
fico? 


CALCULAR 
valores exactos 


Dibujar 
Gráfica 


¿de 
desea repre 
sentación gró 

a fica? 


CALCULAR 
valores exactos 


Dibujar 
Gráfica Y 


¿Se 
desea cal 
cular al 


¿Se 
desea repre 
sentación grá 
fica? 


"Dibujar 
Gráfico a 


CALCULAR 
alores exactos 


NA 


Ox, 


Para no salirse de los margenes de la pantalla con w y R iguales 


a 1 se consigue una simplificación de las fórmulas : 


En el BASIC NIVEL 1 hay que hacer uso de las subrutinas seno y 


coseno. 


El diagrama de flujo de la página siguiente, muestra el funcio- 


namiento del programa. 


¿Para qué valor de;¡09 la aceleración es máxima ? 


¿Cual es el valor de la velocidad y el desplazamiento para este 


ángulo ? 
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GRAMA 


43 
a 
o 


= 


18 
Y 
000002 0:0(10 


REM x ESTUDIO DEL MOVIMIENTO ARMONICO SIMPLE x 

cEÉSs 
PARENT FAB A A o e e ed o Ol o o O NR E 
PRINT TAE(10)3*ESTUDIO DEL MOVIMIENTO ARMONICO SIMPLE” 
PREM MAR A a e o e A a 
INFUT"*CUAL ES EL VALOR DEL RADIO (Rs12*3R 

IF Ri GOTO 40 
INPUT*CUAL ES EL VALOR DE Y (We=1)"34 

IF Ww1 GOTO 60 

FSINT(10xX((2x3,1416)/4))/10:M=0 

INFUT*SE DESEA CALCULAR EL DESFLAZAMIENTO X"5AS$ 

IF (A$<:*"SI*)ANDIA$<>*NO”") GOTO 80 

IF At=*SI" GOTOZOS 

INFUT*SE DESEA CALCULAR LA VELOCIDAD VU*";AS 

TF (A$:<+*"STI*)AND(A$>*NO") GOTO 110 

IFA$="SI" GOTO 300 

INPUT*SE DESEA CALCULAR LA ACELERACION A*5A$ 
TF(49<*SI*>)AND(AS<>*NO*)GOTO 148 

IF A$=*SI"GOTO 800 

FRINT"SE DESEA REPRESENTAR LAS 3 GRAFICAS (XsU»r'A)”5 
INPUT As 

IF(A$:+"SI") GOTO 10 

GOTO 1100 

FRINT*SI SE DESEA UNA REPRESENTACION GRAFICA DEL DESPLAZAMIENTO »” 
FRINT"FULSAR UN (1) Y SI SE QUIEREN VALORES MAS EXACTOS »UN (0) +*s 
INPUT Y 

IF (U<>1)AND(UZI?0) PRINT"LEER DE NUEVO.*":GCOTO 200 

IF Uf COTO 370 

CLS:GOSUE 2000 

FRINTOO» "GRAFICA (DESPLAZAMIENTO) *s$ 

FRINT" Us*5Wu5"R./S.*5* Ra*5R5 M0 5% F=*5F3*"C0./3.*5 

Z=5 

FOR I=0 TO 360 STEP 3 

X=I*GCOSUE 303603 Y=-(YxXRx20)+24,3 

SET(Z+1):Z=Z+1 


NEXT 1 

IF M=í THEN RETURN 

GOSUE 2100 

PRINTORPGO >, "DESEA CONTINUAR* 53 INFUTAS : 
IF (AS *"SI") GOTO 330 

509T0110 

INFPUT"CUAL ES EL VALOR DEL INCREMENTO DEL ANGULO”? +6 
CLSiD=0 

PRINT*ANGULO (EN GRADOS)", "DESPLAZAMIENTO? 

A A 
X=D3GOSUE 30330: Y=YxR 

IF D>360 GOTO 110 

FRINT Do» Y 

D=D+G:GO0TO410 


PRINT"SI SE DESEA UNA REPRESENTACION GRÁFICA DE LA VELOCIDAD »* 
PRINT*PULSAR UN (1)5 Y SI SE QUIEREN VALORES MAS EXACTOS UN (0).* 3 
INPUT U 
IF (U<>1)AND(U<>0) PRINT'LEER DE NUEVO":GOTO 500 
IF U<>1 GOTO 670 
CLS:GOSUE 2000 
PRINTOO, "GRAFICA (VELOCIDAD) *; 
PRINT" U="5H5*R./S.* 3% REP GRITM 050 F="jF3*C./S.* 
Z=5 á 
FOR I=0 TO 360 STEP 3 
=I :GOSUE 30270: Y=YXRx4x20+24.5 


Seno 


620 
25 
630 
540 
$50 
£60 
570 
¿80 
690 
700 
710 
720 
730 
740 
800 
gi0 
82 
830 
840 
850 
850 
870 
880 
890 
900 
910 
929 
925 
930 
940 
950 
960 
970 
980 
99r 
1600 
1010 
1020 
1030 
1040 
1100 
1110 
1120 
1130 
1140 
1150 
2000 
2010 
2020 
2030 
2040 
2050 
2940 
2070 
2080 
2100 
2110 
3000 
3035 
3036 
3037 
3038 
3039 
3040 
3041 


AO A 

NEXT 1 

IF M=1 THEN RETURN 

SOsue 2100 

PRINTEIAO > "DESEA CONTINUAR”; 11INFUT As 

IF (45<>*S1")G0TO £48 

GOTO 340 

INPUT*CUAL ES EL VALOR DEL INCREMENTO DEL. ANGULO” 56 
CL3:+D=0 

FRINT*ANGULO (EN GRADOS)” +» "DESPLAZAMIENTO" 


Xx=D:GOSUE 39370: Y=-YxkKxu 
IF 0366 8010 140 
FRINT DssY 
D=D+G:G607T0 719 
PRINT"SI SE DESEA UNA REFRESENTACION GRAFICA DE LA ACELEACION»* 
FRINT*PULSAR UN (1)5 Y SI SE QUIEREN VALORES MAS EXACTOS UN (0)+.”5 
INPUT U 
IF (U<>1)AND(U<30) PRINTLEER DE NUEVO.* 019 2890 
1F UY<>i GOTO 270 
CLS:3GOSUR 2000 
FRINTRBO+*"GRAFICA (ACELERACION: ” 5 
PRINT" W="3WN3*R./S.,*5* RariRi"M.*5* F="+F3"C./3.*"3 
Z=3 
FOR XI=0 TO 360 STEP 3 
X=TI3COSUR 30760: Y=(YRRXNxLExZ0)+24.3 
SET(Z+Y)3Z=Z+1 y 
NEXT 1 i 
IF M=i TREN RETURN 
GOSUB 2100 
PRINTO?60 > *DESEA CONTINUAR” 5 31INPUT A5 
IF(AS<>*STI*> GOTO 940 
GOTa 170 a 
INPUT*CUÁL ES EL VALOR DEL INCREMENTO DEL ANGULO”3G 
21S:D=0 
PRINTANSULO (EN ERADOS)3” », "DESPLAZAMIENTO" de 
PRINT sonrisas omao? y nasa” 
X=D3G0SUE 3027303 Y=-YxRRx4Uxu 
1F 03560 COTO 170 
FRINT Dr»Y 
D=D+G:350TO 1010 
CLS:+GOSUB 2000 
PRINTOO + *(C005.=X)*5* (-SEN=Y)* 3" (-COS.+-=4)*75* UH=*jWH;" Ru=”iR 
1=1160SUE 27560S5UB 380:c0SUE 89890:C0SUE 2100 
ERINTLIG60 + "DESEA VOLVER A EMPEZAR" +3INFUT As 
IFIAS<>*3ST*) GOTO 1130 
coro 19 
REMXSUERUTINA DIBUJO DE EJESx 
FOR X=5 TO 126 
SET (X24) 
NEXT X 
FOR Y=3 TO 45 
SET(S +» Y) 
NEXT Y 
SET(4714)35ET(4744):3PRINTOES + *1*+1PRINTESI6+"-1*5 
PRINTETI1I+ "077 75 RETURN SR 
FRINTES29+*90"5 1PRINTOS43>*180"5 3 PRINTELSSO + *"270* 5 ?PRINTOS/3I+*360*5 
RETURN y 
0 END 
GS REM *XCOSENOX INFUT X EN GRADOS »+QUTFUT Y 
6 X=X+270:C0SUB2 30380: Y=-Y RETURN 
9 REM xXSENOX INFUT X EN GRADOSs+ OUTPUT Y 
2 TFX>23689 TREN X=X/360:X=(X-INT(X))x360 
9 IFX>90THENX=X/901Y=ENT(X) 3X=(X-Y)xX>90:0NYC0T030410+30420+30430 
0% X=X/357.,27378:GO0TO 30440 
3 X=90-X3GOTO 30400 


»» 

a 
an 

ñ 

. 
> 
“| 
>. 


30420 X=-X¡c00TO 30400 

304309 X=xX-98100T030400 

20048 YaxX-—XxHXxXZ6+XAEXXXIXRXL 120 -X 2 XXXEXXXxXXxXX/5040 
30450 YY +XMXHXIXEXMXZE XXX NX / 367880 

20435 RETURN 


TARA 


CONCEPTO DE INTEGRAL 


Ta A e A e a a a e o a e 


Del mismo modo que para hablar de velocidad instantánea nece- 
sitamos acudir al concepto de derivada, asi también para hablar 


de trabajo habremos de acudir al concepto de integral. 


Sabemos que : 


Trabajo = Fuerza x desplazamiento 
(Consideramos por simplicidad que la fuerza se halla en la di- 


rección del desplazamiento). 


Si suponemos que la fuerza es constante, el cálculo del trabajo 
se reduce a un mero producto de dos factores. Pero, ¿qué ocu- 


rre si la fuerza varía a lo largo del desplazamiento? 


En el caso de que la fuerza varíe una solución aproximada la 
encontraremos parcelando el desplazamiento total en pequeños 
desplazomientos elementales. A lo largo de uno de estos peque- 
ños desplazomientos podemos considerar que la fuerza se man- 
tiene constante y el trabajo a lo largo del mismo será fácil- 
mente calculable. La suma de todos los trabajos elementales 
cuando los respectivos desplazomientos se consideran infinita- 
mente pequeños nos dará exactamente el valor del trabajo y 
dicha suma recibe el nombre de integral de la fuerza (varia- 
ble) a lo largo del comino o desplazamiento considerado. 


Se expresa osí : 


b 


T=| F ax 
a] 


en donde a y b son las abcisas inicial y final del desplaza- 


miento, respectivamente. 
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Mediante un ejemplo nos será fácil comprender la necesidad 
de este concepto matemático, que juntamente conel de derivada 
ha prestado un aporte fundamental para el desarrollo de la 


Ciencia y Técnica actuales. 


Consideremos un sencillo muelle repo- 
sando sobre una superficie horizontal 


0 nnnuwwwww 
ars Y mA E 


XAXAADNANIIDIIO mta Y fijo por uno de sus extremos. Para 
w IY ' 
desplazar el otro extremo un espacio 


X, hemos de aplicar una fuerza que en 


valor absoluto vale 


F = kx 


en donde k es una constante que depende de la elasticidad del 


muelle, 


Supongamos que k valé 1/2 Nw/cm. y que queremos calcular el 
trabajo realizado para desplazar el muelle 4 cm. a partir de 
su posición de reposo. 


La representación gráfica de F = + Xx 


aparece en la figura y se comprueba fá 
cilmente que se trata de una línea rec 
ta que pasa por el origen de coordena- 
das. 


ll, Ktcms) 


Para calentar el trabajo realizado al alargar el muelle 4 cms. 
podemos dividir el espacio en 4 partes iguales, averiguando el 


trabajo realizado en cada una de ellas. 


A lo largo del primer centímetro de recorrido, la fuerza tampoco 
es constante, pero podemos considerar que lo es, adjudicándole 
el valor que posea en el punto medio del intervalo, es decir, 


para X= 0,5 tm. 
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Asi pues, en el primer centímetro o primer desplazamiento ele- 


mental de la fuerza, el trabojo será : 


AT, = Ax.F =1.1 .0,5 =0,25 ya que F=1 .O0,5 
2 2 


Observaremos que AT, coincide con el área del primer rectángulo 


rayado. 
Procederemos de forma análoga para calcular los demás trabajos 
elementales, así como el trabajo total. Los resultados vienen 


dados en el siguiente cuadro : 


N2 del intervalo | Fuerza en el cen- | Trabajo elemental | Trabajo to- 


(N) tro del intervalo | AT=F.Ax tal T 
F=lx 
2 
"0 y 0,25 
2 A AO 0,25+0,75=1 
P 

3 1,25 x 1= 1,25 1+1,25=2,25 
4 1,75 x le 1,75 2,25+1,75=4 


El trabajo total realizado al final de cada intervalo se obtiene 
sumando al trabajo acumulado anterior el trabajo elemental (AT) 
correspondiente a dicho intervalo. Así pues, el trabajo realizado 
en cada momento viene representado por la suma de las áreas de los 
rectángulos, cada uno de los cuales representa, a su vez, un tra- 


bajo elemental, 
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El error que cometemos en un caso general al considerar cons- 
tante la fuerza a lo largo de un intervalo será tanto menor 
cuanto más pequeño sea el intervalo. En el caso límite de que 
pudiéramos hacer cada intervalo infinitamente pequeño no come 
teriamos error alguno. Esto es precisamente lo que consigue 
hacer la integral. La suma de las áreas de los rectángulos 
será entonces el área comprendida entre la curva F(x), el eje 


de abcisas y las ordenadas extremas. 


Asi pues, la integral no sólo nos calcula un trabajo, sino tam 


bién un área. 
A continuación vamos a crear un programa que reproduzca la 
tabla de la página anterior. Como sabemos, la suma del tra- 


bajo total representa el valor de la integral definida. 


A continuación aparece el diagroma de flujo : 
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s 


ART) 


Introducir valor de A 
Introducir valor de 


B 
He 


Eno AE 


X,Y,Y* H,S 
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s 


NOTA : 


E es un valor muy pequeño (0,0001) que se suma a las variables 
para efectuar una toma de decisión; esto evita errores debi- 
dos al redondeo interno del microordenador. Para entender el 


funcionamiento del programa, puede ignorarse. 


PROGRAMA 


10 REM x CONCEFTO DE INTEGRAL *x 

Ad 

BO PRIENT TAB UD AAA A A AA > 

40 FRINT dado DEL CONCEFTO DE INTEGRAL * 

O PRAT TAE AAA A A e e e 

60 FRINT ; 

70 INFUT*CUAL ES EL LIMITE INFERIOR DE LA INTEGRAL"3A 
80 INFUT"CUAL ES EL LIMITE SUPERIOR DE LA INTEGRAL*3E 
90 IF Ex=A PRINT"ERROR EN LOS LIMITES":3GOTO 40 

100 INFUT*CUAL ES EL INCREMENTO DE LA AECISA X";5H 

110 IF H3=0 PRINT*!ERROR! (INCREMENTO NEGATIVO O CERO)":3GO0TO 100 
120 IF(B-A)<H FRINT*DISMINUYA EL INCREMENTO DE X":GOTO 100 
130 S=0 

TIAS 

135 FRINT"AECISA"» "ORDENADA" »*"T. ELEMENTAL"»"T. TOTAL* 
140 IF (E-A+.00001)<H THEN H=E-A 

150 X=A4+H/2 

160 REM x EN LA LINEA SIGUIENTE SE SITUA LA ECUACION x* 
170 Y=IXMXxKX+ZKX+1 

180 S=S+YxH 

190 A=A+H 

200 FRINT X»Y+YxHs+S 

210 IF (A+,00001)5=E PRINT"LA INTEGRAL VALE"5StEND 

220 GOTO 140 
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Al ejecutar el programa, se puede observar que para un intervalo 
cualquiera (en nuestro ejemplo era de A = O hasta B = 4) el área, 
ó lo que es lo mismo la integral, da como resultado el mismo va- 
lor sea cual fuere el valor del incremento de la abcisa (Ax). 
Esto es debido a que la función a integrar es una recta en cuyo 
caso el cálculo de las áreas elementales es un cálculo exacto 


como muestra la figura. 


TRIANGULO DBC = TRIANGULO DEF 
AREA DEL RECTANGULO ACFG = AREA DEL TRAPECIO ABEG 


A 
Sin embargo, en un caso general, la función a integrar no tiene 
por qué ser una recta y por tanto el cálculo de las áreas ele- 
mentales no se ajustarán al valor real. En estos casos, como 
podremos apreciar seguidamente, el cálculo de la integral de- 


finida será más pequeña cuanto menor sea el Ax elegido. 


En efecto : supongamos que queremos hallar la integral defini- 
da de la parábola y = RD Le cel intervalo [A =0, B= 3] 
vamos a establecer un cálculo matemático previo, para poder efec 
tuar comparaciones con los resultados que obtengamos al ejecutar 
nuestro programa. 
, $9 

EN, Bo Ñ = [27 + 9 + 3] - | 0]= 
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Antes de ejecutar el programa, hay que combiar la linea 178 
178 y =3*X*X+2*X+1 


Si se dan distintos valores a4x se obtienen los siguientes 


resultados : 


38.8125 


38.97 

38.9925 
38.9981 
38.9997 
38.9999 


Se puede así mismo apreciar la ejecución con intervalos nega- 


tivos. 


Ejecutar el programa para los valores A = -1 y B =+l. El 


resultado debe aproximarse a 4. 
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ÓN 
A A A e e e e e e a a e So 


CALCULO DE ¿77 


Como se ha dicho, la integral definida puede asociarse al cál- 


culo de un determinado área en el plano XY (llamado plano R2). 


De aqui que la aplicación más inmediata de la integral definida 


esté en el cálculo de áreas de figuras trigonométricas o de 


. CUYIVaS. 


Más adelante colcularemos alguna de estas úreas, pero ahero 


vamos a fijar nueeéza atención en el cálculo del número 7. 


Vamos € demostrar con ayuda del microosdedodor, la existencia 


de dicho número, y luego vamos a calcular su velez, Para ello 


vamos a estudiar el área del circulo. 


5 


La ecuación de la circunferencia centrada en los ejes es ; 


2 2 2 + 2 2 
XA EY AR y z- 


Vamos a crear un progroma que calcule el área del semicírculo 
superior, Naturalmente, usaremos una integral definida para 


este propósito y los límites de integración serán en este caso 
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Se puede utilizar el programa del cálculo de la integral de- 


finida estudiado, efectuando las siguientes modificaciones : 


l- Las entradas de datos del programa serán : el valor del ra- 


dio y el paso de integración. 


2- La ecuación y = f(x) es en este caso y = V r? - e, Si se 


tiene un BÁSIC NIVEL 1 habrá que hacer uso de la subrutina 
raiz cuadrada. En caso de tener un BASIC NIVEL II se usará 
la función raiz cuadrada (SOR). La rapidez de ejecución del 


programa en este último caso es superior al primero. 


3- Uno vez calculada la integral definida S, vamos a mandar 
imprimir los valores : 


Radio del círculo = 

Área del círculo = 2.5 

La relación - LS 
le 


MODIFICACIONES DEL PROGRAMA (INTEGRAL DEFINIDA) 


- Sustituir las líneas 30, 40, 50 


30 PRINT TAB (15) " Es EIA" " 
40 PRINT TAB (15) " CALCULO DEL NUMERO PI " 
50 PRINT TAB (15) " " 


A 


- Sustituir los líneas 70, 80 y 90 por 


70 INPUT "CUAL ES EL VALOR DEL RADIO" ;R 


80 IF R <= f PRINT " ERROR AL INTRODUCIR EL RADIO" :GOTO 70 


JDA=-R:B=R 


- Sustituir la línea 170 


170 C=X:X=RR - XX: GOSUB 38838: X=C 


> Sustituir la línea 218 


219 IF(A+.PBBB1)>=B PRINT "LA INTEGRAL VALE";S:GOTO 238 


- Añadir las lineas 230, 240 


234 PRINT "RADIO", "AREA CIRCULO", "RELACION" 
249 PRINT R, 2«S, (2*S)/(R* R) 


- Añadir la subrutina raiz cuadrada líneas de la 34008 hasta 


la 3009. 


PROGRAMA : , 


10 REM x COCEPTO DE INTEGRAL x*x 


130 
132 
135 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


20 CLS 
30 PRINT TABCLS) 5 ' « 

40 PRINT TAB(15)3"(CALCULO DEL NUMERO PI)* 

50 PRINT TAB(15)3* === ON . 

60 PRINT | 

70 INFUT"CUAL ES EL VALOR DEL RADIO*5R 

80 IF R<=0 PRINT*ERROR AL INTRODUCIR EL RADIO*"¿GOTO 70 
90 As-RiB=R y 


INPUT*CUAL ES EL INCREMENTO DE LA ABCISA X*3H 

IF H<=0 PRINT"!ERROR! (INCREMENTO NEGATIVO O CERO)"+GOTO 100 
IF(B-A)<H PRINT*DISMINUYA EL INCREMENTO DE X*+GOTO 100 

S=0 

CLS 

PRINT"ABCISA"»"ORDENADA”»*T. ELEMENTAL*+"T. TOTAL” 

IF ¿B-4+.00001)<H THEN H=B-A 


X=A+H/Z 

REM Ox EN LA LINEA SIGUIENTE SE SITUA LA ECUACION x 
C=X¿X=RXR-XxXIG60SUE 30030:X=C 

G=S+YxXH 

AsA+H 


PRINT X»Y+YXH»S 7 : 
TF (A4+.00001)>=B PRINT"LA INTEGRAL VALE*3S:2G0TO 230 
GOTO 140 

PRINT “RADIO"»"AREA CIRCULO"» "RELACCION"* 

PRINT RrZxS»(2X3)/(RXR) 


310 


30050 
30060 
30070 
30080 
30 n 4] 90 


A 
13 
*K O 


EM xXRAIZ CU 
REM TAMETIEN 
EP 0 TH 
TF ú 
Es , 

NM, 
U=iXA/ 
1F (N=0 
Y=Y+H3Z 


DRADAX INPUT Xs+OUTPUT Y 
do YN E Z INTERNAMENTE 
RETURN 


THEN RETURN 


=YN3G0TO0 30070 


Una vez efectuados los cambios vamos a ejecutar el programa 
dando distintos valores al radio y a Áx. La tabla que se ob- 


tiene es la siguiente : 


3,14194 


| 3,14194 
| 3,14194 


Se ha mantenido la misma relación entre el radio y el paso 


28,2775 


7854,84 


para evitar diferencios de precisión en el cáleulo del área, 


La conclusión es inmediata : existe una relación constante 
entre el área de un círculo y el cuadrado de su radio. 
Su cociente es constante y el valor de este cociente es lo 


que conocemos por la constante Í/ , 


La precisión en el cálculo de Y por el método que acabamos 
de explicar, es función del valor del paso (Ax) y de la - 


propia precisión del microordenador TRS-80. 
De esta forma, para Áx =.001 y R =1, el cálculo de la cons- 
tante de un valor de 3,14163. El error es menor que 4 x jar 


(Como se sabe el número // vale 3,1415927...). 


AREA DE LA ELIPSE 


Como se sabe, la ecuación de la elipse centrada en sus ejes 


toma la expresión : 


2 2 
A EAS 
e p? 
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ó6 lo que es lo mismo 


Nuestro objetivo es calcular el área de la elipse. 


Vamos a calcularla matemáticomente primero y luego haremos uso 


de nuestro programa de integral definida para comprobar su per- 
fecto funcionamiento. | 


2 a 
1 - > b' dx = 4b 
a 
2 


utilizando el combio de variable Aa = sen  t 


a 


dx = a cos t dt y modificando los límites de integración 


72 


172 
4ab a (ico 22) a 
JN 0 a 
Mí 
Fr 
A=2a YE + cos V) _%Y_= ab lv + sen y] o 
2 

o 
Tab 


[7 e +) 


> 
ti 


» 
Ú 
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El programa que calcula el área de la elipse, tiene mucha 


similitud con el programa del cálculo de 7. 


PROGRAMA 


10 REM x CALCULO DEL AREA DE UNA ELIPSE x 

20 CLS. 

O ki 

40 FRINT TAB(15) ¿"CALCULO DEL AREA CE UNA ELIPSE" 

O O 

60 PRINT 

70 INFUT*CUAL ES EL VALOR DE LA CONSTANTE A*"3A 

80 INPUT"*CUAL ES EL VALOR DE LA CONSTANTE E"3E 

90 IF (A4<=0)0R(E<=0) PRINT*ERROR AL INTRODUCIR A 0 B*3GOTO 70 
100 D=-AJE=4:S=0 

110 INPUT"CUAL ES EL INCREMENTO DE LA ABCISA X"5H 

120 1F H<=0 PRINT "ERROR D£ INCREMENTO" :3G0TO 110 

0 XF 2x4<H PRINT"DISMINUYA €£ INCREMENTO DE X"23G0TO 110 
40 CELS 

150 PRINFY'ABCISA”?» "ORDENADA" >»*"T. ELEMENTAL" +*"T. TOTAL” 
1560 IF (E-D+,00001)<H THEN H=E-D 

170 X=D+H/2 

173 REM xEN LA LINEA SIGUIENTE SE SITUA LA ECUACION Y=F(x>3x 
180 C=X$X=ExXBx(1-(XxX)/(AxA4)):3GOSUE 30030%X=0 

190 S=5+YxH b 

200 D=D+H 

210 FRINT X»+Y»YxH»S 

220 IF (D+,00001)>=E FRINT*LA INTEGRAL ES*3S$COTO 240 

230 GOTO 1460 

240 PRINFT"CONSTANTE A”» “CONSTANTE E” » "AREA DE LA FARABOLA* 

250 PRINT ArtksS8x2 

30000 END 

30010 REM XRAIZ CUADRADAxX INPUT X»+DUTPUT Y 

30020 REM TAMEIEN USA WN £ Z INTERNAMENTE 

30030 IF X=0 THEN Y=0 RETURN 

30040 IF X>0 THEN 30040 

30050 PRINT*RAIZ DE UN NUMERO NEGATIVO" ¿STOP 

30060 Y=Xx.5iZ=0 

30070 W=(X/Y-Y)x.5 

30080 IF (N=0)0kR(W=Z) THEN RETURN 

30090 Y=Y+H3iZ=N3CO0TO 39070 
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Se puede ejecutar el programe para varios valores de A y B. 
En particular pora A = 1 y B = 1 la parábola se convierte en 


una circunferencia. 


De modo parecido, se puede calcular el área de una rama hiper- 
bólica entre dos intervalos. La ecuación de la hipérbola cen- 


trada en sus ejes es : 


EJERCICIO PROPUESTO 


a . 


x 


. - 
A. 


Modificar el programa del cálculo del área de una elipse para 
calcular el área de una rama hiperbólica dentro de un inter- 
valo. 
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ESTUDIO DEL TIRO PARABOLICO 


TT a a a e o a o OA CS IO NT CE MER PU AT O DTO PA AS E. 


£l estudio del tiro porabólico parte del concepto del vector 
welocidad. La velocidad, además de ser una magnitud escalar, 
puede representarse por un vector cuyo módulo es una magnitud 
escalar y cuyo argumento viene determinado por su dirección y 
sentido. Asímismo, la aceleración es una magnitud vectorial 


puesto que es la derivada de la velocidad con respecto al tiem 


po. 


Supongamos que se lanza un proyectil con una determinada ve- 
locidad Y y con un ángulo y respecto de la horizontal. La 


trayectoria constituye un ejemplo típico de tiro perabólico. 


Los leyes del movimiento, aplicadas a la descomposición Vx 


y Vy del vector V, definen con claridad esta trayectoria. 


Vx 
Vy 


u 


Vicos Y Pz arctg Y 
Y sen Y Vx 


La Única fuerza que interviene en el proyectil una vez lanzado 
es la acción de la gravedad en la dirección vertical. Por tan- 
to, el estudio aislado del desplazamiento vertical corresponde 
a un movimiento del tipo uniformemente acelerado, mientras que 


el horizontal es un movimiento uniforme. 
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Las ecuaciones son los siguientes : 


2 


= Wy.t -5 g.t y = F(t) 


«E 
i 


Vx.t x = H(+) 


A 
$ 


El ángulo de caída del proyectil 0 =- arc. tag a 
Xx 


Ejemplo : 

Se dispara un proyectil con una velocidad inicial de 100 m/s., 
y un ángulo de elevación de 30%, Se desea calcular el alcance 
del proyectil, suponiendo un terreno horizontal y la altura 
máxima y el ángulo de caída. 


1 


á 
Aplicondo las ecuaciones : 


Vis: 
50 m/seg. 


Vx = 100 . cos 30 
Vy = 100 . sen 30 


jos 


0250. t-3.98 —o t=8, + = 10.2 seg. 


x= 50 Va. 10.2 = 883135 m. 


La altura máxima se consigue para t= 10'2/2 = 5,1 seg. 
Y max = 50 . 5,1 - - 9.8 . (5,1)? 


Y max, = 127,55 m1. 


El ángulo de caída Q= - 302 


Se pretende simular el tiro parabólico, haciendo uso de las fun- 
ciones gráficas SET y RESET. El programa tiene que dar entrada 

a los datos del vector velocidad inicial. Se necesita cargar la 

subrutina coseno y seno si se utilizo un BASIC NIVEL 1. 

A la vez se desea poder efectuar distintos disparos, modificando 


el ángulo de disporo [argumento del vector velocidad). 
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! PROGRAMA 


110 REMXESTUDIO DEL TIRO PARAEOLICOX 


20 CLS:3T=0 

30 PRINT TABC1D) $" cs » 

140 PRINT TAB(15) ¿"ESTUDIO DEL TIRO PARABOLICO* 
DO OPRINT TABOADA e e e RA 
OVERENTO A 


(70 INFUT*CUAL ES EL MODULO DE LA VELOCIDAD M,. (0<M<=100)"3M 
0 IF(M>3449306M<=0) THEN PRINT"MODULO FUERA DE LIMITES*:GOTO70 
0 INFPUT*CUAL ES EL VALOR DEL ARGUMENTO A.(0<=A<=90)*"534 
100 IFCAZO)ORCAS>90)THEN PRINT*ARGUMENTO FUERA DE LIMITES" 16071090 
1130 IF T<>0 GOTO 
1140 CLS 
e FOR X=1 TO 39 
170 PRINTO9OO+X>* 
180 NEXT Xx 
190 FOR Y=3 TO 13 
00 PRINTO Yx64+5,".*5 E as 
NEXT__Y a: ¡ 

220 FOR N=1 TO 4 ; 

230 PRINTO128+128xXN»100x(6-N)5  ' 
240 NEXT N 
FOR N=1 TO 5 
(2355 PRINTOIG0+Nx11+200XN5 17 Dire ic 
260 PRINTO P965+Nx11+*1"5 
NEXT N 
30 FRINTO 965+*0"33PRINTO 193, *M.* FIPRINTO. 10211 Mo 03 o. e 
290 FOR H=49-.T10 43. - SS A O , 
FOR L=82 TO 85 
292 SET(L+H) 

293 NEXT L 
NEXT H 5 
300 X=A:GOSUB 30380: T=MxY/4.9 yA 
(310 X=A43GOSUE 30350:3B=MxY 

320 X=AGCOSUE 30380:3C=MxY 

| 330 PRINTO1>"TIRO PARABOLICO :2*5 

340 PRINTO19,"MODULO DE V.="3M5 di 
¡do FRINTO39»"ARGUMENTO="343" GRADOS"; 
| 355 X=03Y=0 

1360 FOR I=0 TO T STEF ,08 
1370 RESET(Xy Y) 


108] 
fur 
La] 


E] 
ca 
o 


e 
N 
ca 


mn 
«0 
po 


Pu 
só 
Lh 


380 X=BxI 
1 390 Y=(CxXI)-(4.,9xXIxI> 
00 X=INT(XX110/1000+.5)+12 
¡4410 Y=42-INT(Yx28/500+.5) 
¡ 420 SET(X»Y) 

30 NEXT 1 
pas PRINTE79»* 3 

50 PRINTO7O+"T="5T53PRINTOOS+*X="5TxXE52PRINTR109+"Y="3"0"5 
460 PRINTO143»* de 
| 170 PRINTO143+"CUAL ES EL ANGULO DEL NUEVO DISPARO"; 
¡480 INPUT A 
490 IF (A20)0R(A>90) GOTO 460 
¡2500 GOTO 300 
40000 END 

03530 REM xCOSENOX INPUT X EN GRADOS+OUTPUT Y 
0360 X=X+270:3GOSUE 30390: Y=-Y RETURN 
$0370 REMXSENOX INFUT X EN GRADOS, OUTPUT Y 
B0380 IF X>360 THEN X=X/3603X=(X-INT(X))x360 
30390 IF X>90 THEN X=X/903Y=INT(X)3X=(X-Y)x900N Y GOTO 30410>30420+30430 
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30400 X=X/57.29578:C0T0 30440 

30410 X=90-X3GOTO 30400 

30420 X=-X3GOTO 30400 

30430 X=X-90:3G0T0 30400 

30440 YEX XXX + XXX XX / 12.0 —X XXX MX MAX 50 9 0 
30450 Y=Y+XAXKXIXKXEXK XXX XX / 362880 

30460 RETURN 


Una vez editado el programa, puede ejecutarse con un módulo 
de velocidad inicial de 100 m/seg., dándo diferentes valores 
al argumento, 


PREGUNTAS 


¿ Para qué valor del ángulo se consigue el alcance máximo? 


7 Qué sucede E se dHhieearr ».n ángulos ARAS por 
ejemplo 302 y 602 ? 


MODIFICACIONES AL PROGRAMA 


Pera simular la trayeotarieo del arovectil se pueden añadir 
las líneas 355 y 374 


355 X =B: Y = 84 
SF RESET (X, Y) 


Colocando un objetiva en el compo de tiro, se pueden observar 


las velocidades y ángulos que consiguen batirlo. 


Para dibujar el objetivo, añadir al programa las líneas : 


299 FOR H = 48 TO 43 
291 FOR L = 82 TO 85 
292 SET (L,H) 

293 NEXT L 

294 NEXT H 
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ARAS E 
PROGRAMÁS DE  LUTILIDAD. 
A 


PRUEBA COMBINADA DE FUNCION Y ROM 


SI o o e e e Cn q 20 SC APO SR 200 1: 2 A e Sr 
cn 


El siguiente programa realiza un chequeo de la microcomputadora. 
Cuando se ejecuta un programa y existe la sospecha de que el 

fallo está en el mal funcionamiento de la microcomputadora, pue 
de ejecutarse este programa. Primeramente hay que asegurarse de 
que la microcomputadora esté correctomente alimentada y efectuar 


la prueba P.M. descrita en el capitulo 26. 


El programa se ejecuta en tres fases ; 


1, Comprobación de la función (requiere aproximadamente 5 
segundos) 
2. Comprobación de la memoria RAM (requiere unos minutos). 
3. Comprobación de la pantalla. Permite verificar el cen- 
trado, la distorsión de la linea recta, etc... (si se 


desea dibujar de nuevo el patrón hay que oprimir la te 


cla [enrer | de | 


Si en cualquier punto la computadora muestra un BREAK AT 4<£ 
A, se sabrá que algunas de las funciones no se realizan co- 
rrectamente (fallo de la ROM). En caso de fallo en la RAM, el 
mensaje BREAK será precedido por "RAM ERROR". 


Si no se obtiene un mensaje BREAK (ó iteración infinita), el 


TRS-80 funciona correctamente. 


Este programa puede guardarse en cinta para usos posteriores. 


El programa es el siguiente : 


16 IN. "ESCRIBA 1, LUEGO OPRIMA ENTER";X 

15 CLS:P. AT f; "PRUEBA DE FUNCIONAMIENTO DE LA TRS-8f4" 

26 READ Y 

36 DATA 2 

46 RESTORE 

5% READ Y 

55 F.A. = 1 TO 1GBB:N.A 

64 IF X'>YSTOP 

7% IF X>= YSTOP 

86 1F Y<XSTOP 

9% 1F Y<= XSTOP 

106 F.X=1TOLÓSTEP2 

11% GOTO 134 

12% STOP 

134 G0S.158 

1448 GOTO 164 

158 RETURN 

168 ONX GOTO 188 

17% STOP 

18% SET(X, Y) 

185 IFPOINT(X,Y)G.198 

187 STOP 

19M RESET (X,Y) 

298 1FX<_ > Y-1STOP 

219 IFY = X + 16.238 

22% STOP 

236 Z=RND(H) 

244 X=1.1:X=INT(X) 

245 Y=ABS(X)/2+.5 

256 IFY=1G.274. 

264 STOP 

276 REM EVERYTHING IS OK (todo está correcto) 

298 CLS:P.TAB(5), "TODAS LAS FUNCIONES ESTAN BIEN, LA PRUEBA 
DE RAM ESTA REALIZANDOSE” 

30% A= M./4-1:B=9 


319 F.Y=1T08:0=.5 
324 F.B=1TOY:0=0 +2:N.B 

336 F.X=48 TO A:A(X)=0:N.X 

348 F.X=8H TO A: IFA(X)< >0P."RAM ERROR" :STOP 
358 N.X 

368 P.AT68,Q:N.Y:P.ATH; "LA PRUEBA RAM SE HA COMPLETADO" 
376 F.AZ1TO 2596:N.A 

498 CLS:K=1 

419 A$=GH 

424 F.X=1T032:P.AS; :N.X 

438 F.X=1TO14:P.T.(29):A8:N.X 

44% P.AT 469; 

45% F.X=1T09:P.AS; :N.X:P 

46H P.T.(21);':F.X=1TO9:P.AS; :N.X 

470 P.ATIGH; 

4846 F.X=1TO31:P.A$; :N.X 

49% IN.BS 

50H IFK >gAS=88 

516 IFK< HA8=GH 

528 K= - K 

538 CLS:G.429 
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PROGRAMA EVALUADOR DE EXAMENES 
A A A 


16 REM “EVALUADOR DE EXAMENES* 
29 CLS 
MA = 
48 B 
5% C 
6% D 
7D E 
84 T 
%w EF 

100 N = 19 

11% P."LE GUSTARIA ESCRIBIR LAS RESPUESTAS" 

12% P."UNA CADA VEZ, O 5 CADA VEZ (DIGITE 1 6 5)"; :IN.T 

138 IF(T=1)+(T=5)G0T0158 

148 GOTO 29 

158 UN. "INTRODUZCA EL NOMBRE DEL ESTUDIANTE (APELLIDO, NOMBRE)"; 

AS; B$ 

169 CLS:P."PRUEBA PARA":B$," ";AS 

178 REST 

188 R = 89 

194 FOR I= 1 TO N STEP T 

296 P." INTRODUZCA RESPUESTA"; -1F T= 5P."S";I;"A TRAVES"; 

210 P.I+T-1; 

226 1F T = 5 1N. ACI) ¿A(T+1) ,A(1+2) ,A(1+3) ,A(1+4) ,A(I+5) :G.248 

23% IN.A(1) 

246 NEXT 1 

25% CLS 

266 P."RESULTADOS DE LA PRUEBA DE ";B8;" "AS; "¿" 

276 FOR 1 = 1 TON 

288 P.A(1) 

296 READ Z 

300 P.Z, 


"no... 4 
DP» 0 Nn ta 


n 


non 
pot ps 
- a 
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319 IF A(I)=ZP."CORRECTO";:R= R + 1 

329 P. 

33% NEXT 1 

3448 P. "PORCENTAJE DE CORRECTAS: " ;INT(R/N * 198 + .5) 
359 P. 

364 G.159 

379 DATA 5,3,A,D,C,E,T,T,F,T 
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RELOJ DE 12 HORAS 


1% IN."LA HORA ES";E 

24 F=INT(E/1M) :E=E-(F *19) 
3% IN."LOS MINUTOS SON" ;C 
4% D=INT(C/19) :C=C-(D * 14) 
58 IN. "LOS SEGUNDOS SON";A 
66 B=INT(A/18) :A=A-(B * 18) 
76 F.N=1 TO IBB:N.N 
8MA=A+*+1 

9% IF A>9 G.118 

10% G.300 

118 A = 8 ! 
1MB=B+1 

13% 1F B>5 6.159 

144 G.300 

158 B = Y 

168 C=C+1 

17% 1F C>9 G.194 

189 6.304 

10BC=4 
2WD=D+1 

219 IF D>5 G.234 

22% G.308 

206 D =$ 

284 E=E+1 

256 IF E>9 6.274 

264 6.296 

ZT7BDE=4 

288 F=F+1 

296 1F (F=1)* (E=3)A=4:B=8:C=M:D=4:E=1:F=8 
340 CLS 

314 P.AT 47, ,F;Es":";D;C;";";B;A 

326 G.78 
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PROGRAMA PARA EL DISEÑO DE UNA ANTENA CUBICA QUAD 


La cúbica QUAD es una antena excepcionalmente fina para el uso 
en la recepción y transmisión de radioaficionados, banda civil, 
transmisión de onda corta, servicio de radio industrial, público 
y señales de televisión. Es giratoria y de poco peso hallándose 
bien equilibrada, aún cuando no se encuentre muy por encima del 


nivel del suelo. 


Eléctricamente, consiste en dos bucles de alambre, uno de los 
cuales se alimenta con un cable coaxial o uno de doble termi- 
nal, y el otro simplemente soldado a sus extremos. La figura 


l es una ilustrdción de esta antena QUAD. 
El progroma recibe la frecuencia de operación deseada. Luego 


calcula todas los dimensiones necesarias para su construcción. 


y 


Figura 1 
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5 CLS 


8 P."DISEÑO A LA MEDIDA DE SU PROPIA ANTENA CUBICA DE ALTA 


GANANCIA >> -> " 
9 Pp. 
1% IN."FRECUENCIA CENTRAL ( EN MEGAHERTZ) = ";F 
2% CLS E 
25 P." > -- > ANTENA CUBICA QUAD< -- < " 
39 P. 
46 E= .985* F 
5Ó G= 1.833*F 
66 D= 1000/F 
106 R= 1832/F 
144 B= 118/F 
189 X= (2 *(R *R/64)) 
194 GOSUB 14008 
195 S = Y 
296 X= (S+S + (Bx* B/4)) 
214 GOSUB 19008 
215 P = Y 
228 X = ((R +*R/64) + 75 x 75/(F* F *4)) 
23% GOSUB 100064 
235 T = Y 
244 X = ((R*R/64) + 125* 125/(F* F *4)) 
242 GOSUB 14004 
245 U = Y 
264 W = 468/F 
526 P. "LA FRECUENCIA CENTRAL DEL DISEÑO ES";F;"MHZ." 


525 P. "ESTA QUAD DE DOS ELEMENTOS DEBERA TENER UNA RAZON DE 


ONDA ESTACIONARIA" 


53% P. "DE 2:1 O MENOS SOBRE EL RANGO DE FRECUENCIA DE";E;"A" 
535 P.G;"MHZ CUANDO SE USE CON UNA LINEA DE ALIMENTACION DE 59 


A 75 OHMS." 
544 P. 


57% P. "LA LONGITUD DEL "BOOM" PUEDE VARIAR ENTRE";75/F;"PIES Y" 
575 P. 125/F;"PIES CON POCO EFECTO. UNA LONGITUD DE ";B 
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589 P."PIES ES OPTIMA" 

59% P. 

624 P. "LA LONGITUD TOTAL DEL ALAMBRE EN EL ELEMENTO MANEJADO ES”; 
D 

625 P. "PIES, LO CUAL RESULTA SER"; D/4;"PIES POR CADA LADO" 

636 P. 

649 P.T.(26), "OPRIMA ENTER PARA CONTINUAR", :IN;A$ 

659 CLS 

664 P."LONGITUD TOTAL DEL ALAMBRE EN EL ELEMENTO REFLECTOR ES";R 

665 P. "PIES, LO CUAL SERA"; R/4;"PIES POR CADA LADO" 

67H P. 

696 P." LA LONGITUD MINIMA DE BAMBU. FIBRA DE VIDRIO O ALGUN OTRO" 

695 P. "SERA";S: "PIES, MEDIDOS DESDE EL CENTRO DEL" 

697 P. "BOO". SI SE USA MONTADURA QUAD DE ARAÑA (SIN BOOM)" 

70 P. "CADA BRAZO DEBERA SER POR LO MENOS DE";P;" "PIES" 

739 P. 

749 P. "EL RADIO DE GIRO (PARA LIBRAMIENTOS,ETC) VARIARA" 

745 P. "ENTRE";T; "PIES Y"¡U; "PIES, DEPENDIENDO DE LA LONGITUD" 

758 P. "DEL. "BO0M"" 

755 P. 

766 P.T.(28), "OPRIMA ENTER PARA CONTINUAR"; :IN.AS 

776 CLS 

79% P. "ESTA ANTENA QUAD TRABAJARA BIEN AUN A BAJAS ALTURAS" 

795 P. "POR ENCIMA DEL SUELO, PERO TRABAJA MEJOR CUANDO ESTA 
ELEVADA" 

898 P. " A LA MITAD DE LA LONGITUD DE ONDA -- ";W;"PIES,O MAS" 

819 P. 

84H P."LA RAZON DEL FRENTE HACIA ATRAS (HABILIDAD PARA REDUCIR 
SEÑALES" 

845 -P. "NO DESEADAS DE LA DIRECCION OPUESTA) DEBERA EXCEDER 
DE 14" 

85H P. "DECIBELES DE CERCA DE";.97 *F; "A";1.83% F; "MEGAHERTZ" 

855 P. "ACERCANDOSE A 25 DB A"; F;"MEGAHERTZ" 

864 P. 

886 Pp. DA X Y *MUYBIEN+ Y Y Y *Xn 
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9999 END 
16666 REM * SUBRUTINA DE RAIZ CUADRADA* 

16016 1F X = Y GOTO 19648 

14826 P. "NO EXISTE TAL COSA COMO RAIZ CUADRADA DE NUMERO NEGATIVO" 
1003% END 

19848 Y = X/Z 

10058 Z = Y 

16068 M = (X/Y - Y)/2 

10078 1F Y = Y RET. 

10084 IF W = Z RET. 

1P09D Y = +W:Z=59 

1P1HÓ GOTO 19660 
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PROGRAMA PARA MEDIR LA VELOCIDAD DE LECTURA 


Pas AAA Aa 


3 REM * PROGRAMA DE LECTURA VELOZ * 
-46. 14 
5 F. 1 =1 TO B:N.I:PRINT AT 448; :RET. 
6 REM *EL APUNTADOR AUDIBLE VA ANTES DEL REGRESO EN LA LINEA 
ANTERIOR * 
16 1. "CUANTAS PALABRAS POR MINUTO LEE?" ;W 
29 B = (12* 68/w) * 500 
36 REM 508 = FOR/NEXT ITERACIONES EN UN SEGUNDO 
4% CLS 
5% P.AT 448; 
106 P. "SCARLETT O'HARA NO ERA BONITA, PERO LOS HOMBRES RARA VEZ": 
60S.5 
182 P. "LO NOTABAN CUANDO ERAN ATRAIDOS POR SU PROPIA SIMPATIA 
COMO LES PASO": GOS.5 
194 P. "A LOS MELLIZOS TARLETON. EN SU CARA ESTABAN DEMASIADO 
MEZCLADOS LOS ":G0S.5 
166 P. "RASGOS DELICADOS DE SU MADRE, UNA ARISTOCRATA COSTEÑA DE": 
G0s.5 
198 P." DESCENDENCIA FRANCESA, Y LOS TOSCOS DE SU ENROJECIDO PADRE" 
:60S. 5 : : 
11% P. "IRLANDES. PERO ERA UNA CARA IMPRESIONANTE, SU MENTON 
PRONUNCIADO, " :GOS. 5 ¡ 
112 P. "SU QUIJADA RECTANGULAR. SUS OJOS ERAN DE UN VERDE PALIDO 
SIN UN TOQUE" :GOS. 5 
114 P. "COLOR AVELLANA. CON NEGRAS PESTAÑAS ERIZADAS MUY IMPRE- 
SIONANTES Y LIGERAMENTE" :GOS. 5 
116 P. "MARCADAS EN LOS EXTREMOS. SOBRE ELLAS, SUS CEJAS ESPESAS 
Y NEGRAS" :GOS. 5 
118 P. "SESGADAS HACIA ARRIBA, CORTANDO UNA DESTELLANTE LINEA 
OBLICUA EN SU":GOS. 5 
12% P. "PIEL BLANCO MAGNOLIA - ESA PIEL TAN APRECIADA POR LAS 
MUJERES" :GOS. 5 


122 P. "DEL SUR Y TAN CUIDADOSAMENTE GUARDADA CON VELOS, COFIAS 
Y":605.5 
124 P. "MITONES EN CONTRA DEL CALIENTE SOL DE GEORGIA" :GOS. 5 
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PROGRAMA PROMEDIO DE DOW- JONES 


Es un ejemplo aparecido en una revista financiera en 1977 : 


1% REM *DE FORBES 6/1/77,P.94. ARTICULO DE BROWN * 

249 P. "*** PROYECTOS CON BLANCO EN EL PROMEDIO INDUSTRIAL 
DOW-JONES COMO A" 

39 P. "FUNCION.DE LAS GANANCIAS DJI Y TASA DE INFLACION *** " 

44 P. 

5% REM *KILO= PRIMARDECOSTO DEL DINERO. SUPONGA 3% * 

6% K = .9 

7% REM *P= PRIMA DEL RIESGO DE ACCIONES SOBRE BONOS.SUPONGA 1% * 

8$ P = .9l 

85 Y=1 ; 

86N =P 

9% P. "CONOCE LAS GANANCIAS ESPERADAS ANUALES DE 3% DJI (Y/N)"; 

106 INPUT A 

116 IF A = 1 THEN 276 

124 P. 

134 P. "ESTE METODO LE DARA UNA APROXIMACION DE LAS GANANCIAS 
UTILIZANDO LOS " se e: 

14% P. "PRECIOS DEL PERIODICO Y LAS TASAS P/E. MEJORES PREDIC- . 
CIONES" 

145 P. "DE CADA UNA DE LAS GANANCIAS DE LAS COMPAÑIAS PODRAN 
DAR UN MEJOR" 

154 P. "PRONOSTICO GENERAL" 

168 P. 

17BD=84 

175 FOR N = 1 TO 34 

189 READ A $ 

206 P. "CUAL ES EL PRECIO ACTUAL DE > -->". AS," <--<"; 

21% INPUT P 

229 P. "LA TASA P/E ACTUAL": 

238 INPUT R 

248 E = P/R 
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258 D0* E+D 

260 N.N. 

265 P. 

266 G.31% 

270 P. "CUALES SON LAS GANANCIAS TOTALES ESPERADAS PARA UNA 
ACCION DE”; 

284 P. "CADA UNA"; 

285 INPUT D 

296 REM *I= TASA DE INFLACION ESTIMADA” 

31% P. "QUE PORCENTAJE ES LA TASA DE INFLACION?"; 

32% INPUT 1 

338 T = D/(K + P + 1 *.81) 

349 R + T/D 

359 P. ¡ARS 

368 P. "TASA INFL.", "GAN.DJI", "PROM DJ ESTIM", "TASA PROM/GAN" 

376 P. 

38% P. 1,D,T,R 

39% D. ALLIED, CHEM, ALCOA, AMER BRANDS; AMER CAN, A.T. £ T 

49% D. BETH STEEL, CHRYSLER, DUPONT, E. KODAK, ESMARK, EXXON 

419 D. G.E., GEN FOODS, GEN MOTORS, GOODYEAR, INCO 

420 D. INT.HARV., INT.PAPER, JOHNS-MAN, MINN MM, OWENS-ILLS 

438 D. PROCTER € G., SEARS, STD OIL CAL, TEXACO, UNION CARBIDE 

444 D. U.S STEEL, UNITED TECHNOL., WESTINGHOUSE, WOOLWORTH 
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PROGRAMA DE ENTRETENIMIENTO 


ag CLS 
56 P.AT7, "EN UNA TARDE NEVADA... POR ROBERT FROST": 
55 F.N =1 TO2008:N.N 
68 F. Z= 1 TO 369 
76 SET (RND(127),RND(47) ) 
72 N.Z 
88 1= 0 
1008 P.AT525, “DE QUIEN SON ESTOS BOSQUES CREO QUE LO SE"; 
1481 GOSUB 6444 
1100 P.AT525, "SIN EMBARGO, SU CASA ESTA EN LA VILLA”; 
1161 GOSUB 6448 
1296 P. AT525, "EL NO ME VERA DETENERME AQUI"; 
1281 GOSUB 6000 
1360 P. AT525, "PARA OBSERVAR SUS BOSQUES AL CUBRIRSE DE NIEVE"; 
1361 GOSUB 6900 ' 
149% P. AT525, "MI PEQUEÑO CABALLO HA DE CREER QUE ES EXTRAÑO"; 
1441 GOSUB 6900 
1500 P. AT525, "DETENERSE SIN ALGUNA GRANJA CERCA"; 
1561 GOSUB 6404 E 
1606 P. ATS525,"ENTRE EL BOSQUE Y EL LAGO CONGELADO" ; 
1661 GOSUB: 6000 
1740 P. AT525,"LA TARDE MAS OSCURA DEL AÑO"; 
1761 GOSUB 69048 
1868 P. AT525, "LE DA A LAS CAMPANAS DE SU RIENDA UN JALON"; 
1861 GOSUB 6040 
1966 P. AT524, "PARA PREGUNTAR SI EXISTE ALGUN ERROR"; 
1961 GOSUB 6406 
260% P. AT525, "EL UNICO SONIDO ADEMAS DE ESTE ES EL ROCE"; 
2461 GOSUB 5400 
2160 P. ATS525, "DEL VIENTO SUAVE Y DE LA ESCARCHA BLANDA"; 
2141 GOSUB 6404 
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220% P. AT525, "EL BOSQUE ES ADORABLE, OSCURO Y PROFUNDO"; 
2281 GOSUB 6864 

236% P. AT589, "PERO TENGO PROMESAS QUE GUARDAR"; 

2365 1 =3 

231% GOSUB 664 

2496 P. AT635, "Y MILLAS QUE RECORRER ANTES DE QUE YO DUERMA"; 
2495 1=6 

2419 GOSUB 6408 

2506 P. AT717, "Y MILLAS QUE RECORRER ANTES DE QUE YO DUERMA"; 
2565 I = 9 

2514 GOSUB 6040 

5000 SET(RND(127) , RND(47)) 

5001 G.5000 

600% F. N = 1 TO 24 

6628 X =RND(127) 

63 Y =RND(47) 

697 IF Y = 24 + 16. 6828 

6886 IF Y = 25 + 1 6.6024 

696 IF Y = 26 + 1 6.6824 

6190 SET(X, Y) 

6156 F. A = 1 TO 28:N.A 

628% N.N 

630% RETURN 
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SUBRUTINAS CONTENIDAS EN ESTE APARTADO 


Raíz cuadrada ..--- 
Exponenciación 

Logaritmos (Natural y Común) 
Exponenciación (Potencias de e) 
Tangente 

Coseno 

Seno 

Arco-Seno 

Arco-Coseno 

Arco-Tangente 

Signo 


1 
Pe) 
RAIZ CUADRADA - b 
Calcula : SQROO, YX 
32090 END 
Entradary 3 Pe O 30010 REM x RAIZ CUADRADA x INPUT X+QUTPUT Y 
t Sl r.mayor.0 20029 REM TAMEIEN USA Y 2 2 INTERNAMENTE 

Entrada: X, deborá brad y 230030 TF X=a0 THEN Y=0 RETURN 

ARAS PE A EIA 30040 IF X>0 THEN 30060 

“Salida E 2. - dE E: 30030 FRINT'RAIZ DE UN NUMERO NEGATIVO" :STOP 
A Lilia 30080 Ye Xx 51Zw0 

os E ER AA SAA 20470 ya ( IN=YIX,5 

A A a 30080 IF(H=0)0R(WeZ) THEN RETURN 
Tambien utiliza: internamente W,Z 


30099 YeY+H: 23H :GOTO 30070 


Otras subrutinas requeridas: ninguna 


Como llamarla?: GOSUB 30030 


A A NANA ¿NN [A rotar 


Exponenciacion 


Calcula: XY (X a la potencia Y) 


O A A 


SE e E O e e AT e 5 


x «e a Ez y za S Y . : 
Entrada: X, Y. Sí'X/es menor que 0; Y deberá ser un entero non; "> 


Mo ica y ba le Y Dr 0 rd 1 


2 

ON O mana A je: gora; S010O REMNEXPONENCIACIONE INPUT X+Y:0u 
Salida:P- a A e Ie ZA 20110 REMXTAMBIEN USA INTERNAMENTE Etraroona 
me cda LD a NA Ti rta me AA A SAN il a 20120 17 x=c THEN P=0: RETURN j 


30130 Pn1:IF Y=0 THEN FETURN 


: ; j A 20140 IF(X<0)AND(Y=> NTC - : 
Tambien utiliza: E,L,A,B,C, internamente 30150 coste 20470: X=YNLICOSUS a9ue) AO 
30160 PRPrErRETURN iN 


Otras subrutinas requeridas: Log y Exponencial 


Como llamarla: 30120 
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po 


y rilmos (natural y común) 


emia: LOG(X) base e,y LOG QU) base 10 


RUI eu 2 


30170 
20175 
30130 
30190 
30195 
20200 
30203 
20210 
30215 

30229 


30223 


Las On -Meyor que ,0 deis 3 cero. 


la: L es el logaritmo natura! (base > 2, Xx es el logaritmo común (hase: 10): E es 


Lab 
- EN 
3 


A a ie 


ambien utiliza: A,B,C, internamente 


3 subrutinas requeridas: Ninguna 


mpyo llamarla: GOSUB 30190 


CANES 

1, ta: ESPOL) (e a la posa X) 30240 

ter eres 13% 
das 30235 

Dido AN Pr - a SERES - era 

ida: E apra, A A ESA 30275 


30280 
ES utiliza: L,A internamente 


tras subrutinas requeridas: Ninguna 
«o llamarla: GOSUB 30259 


a 


alcula: TAN ple 
l.. 30000 
20300 
20310 
39320 


30330 
30340 


E de: E a 


Alerón utiliza: A,C internamente 


) as subrutinas necesarias: Coserio y Seno 


somo llamarla: GOSUB 30320 


'OSCNO 


rr COS) 


e mr e 0 me ap O 


Il. 


' thién utiliza: ninguna otra variable - 


a 
SS 


da: Y 7 
E 
jtras 5ubrutinas necesarias: Seno 


no llamarla; GOSUB 30360 


w. 
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REMENATURAL £ COMUN xXIMPUT X»+OLUTPUTL + X 
REM SALIDA L ES LOG NATURAL s SALIDA X ES 
REM TAMBIEN UTILIZA A»ErC INTERNAMENTE 
EXQ3IF X<0 THEN PRINT"LOGC INDEFINIDO EN*;X;STOP 
asiiE=212=,3 

IF X>=4 THEN X=CxXx:ExE+a? 
TF X<C THEN X=ExXX1E=E£-N: 20205 
XE(X-=,7071077/(X+,707107)!LoXxX 

Lt (0. IPRIFORLA PAT 102 BEI) RRE 7) 4931 
IF ARBS(LI<1E-4 THEN L=0 

XaLx.1434294% 3 RETURN 


LOG COMUN 


SOTO 30200 


GOTO 230205 


47 


REMXEXPONENCIAL= INPUT X+QUTPUT E 

REM TAMEIEN USA INTERNAMENTE A4+8 x 

IF Xx0 THEN E=1tKETURN 

IF INT(1.4427xX2>126 THEN PRINT "SOBRERRANCO” :STOFR 
IF Xx<0 COTO 30290 . 
£=1;A"1:€=0 

IF A<.00001 THEN RETURN 
ASAXX/(Br1)1E=xE+A1B=E+r11COTO 30270 

X=-X:COSUB 30263:E=1/E ¡RETURN 


END ? 

REM x TANGENTE xXINFUTX EN GRADOS+ OUTPUT Y 

REM TAMBTEN USA ArC INTERNAMENTE 

A=X3GOSUB 21366 

IF ALS(Y)<1E-S THEN PRINT'"TANGENTE INDEFINIDA":STOT 
CaY:X=eA:GOSUE JOIBO1Y=Y/C: RETURN . 


30330 REM x COSENO xINPUT X+QUTPUY Y 
30D60 X=X4+270:CCSUA 20380: Yw-Y* RETURN 


AO 


Seno 


Calcula: SIN Y) 
A RO E a ml 


untrada: X. en grados mayor o: igual. A 


o rre ve ne pay 


Salida: Y IS 
También utiliza: ninguna otra variable 17 : 
Otras subrutinas requeridas: ninguna 


Como Uamarla: GOSUB 30389 


REA x SINO XINPUT X+OUTPUT Y 
1F X>360 THEM X=X/3601X="X-INT(X))x260 q 
TF X>70 THEN X=x/90:Y=INT(X)3X=(X-Y)x90:10N Y COTO 30410+30420+-3092 
42X/37 ,29%973:G0T0 230940 
X290-X:3GOTO 20400 
X=-X1GOTO-30400 
Xw»X-90:50T0 230409 
Va XMREXL 6 +XEXEX UAM 120 XUXA RAMAS 5060 
RETURN 


¿reo Coseno 


zalcula: arco coseno(S), ángulo cuyo coseno es S 
AA ASA 
intradar-S) us 


bicis qe 
jalidar Y en grados, 


farabién utiliza: X, Z internamente 


Ad en radianes co 
ES 
está en radianes -:.>- 3: 


¿tras subrutinas requeridas: arenseno 


como llamarla: GOSUB 30500 


irco-Seno 


:alcula: Arco-seno(S), angulo cuyo seno es S 


CAEN IO RR, e, Po. 


RO, AT 


A, PE IA 


E E qe SR 
ontrada; S,) > AO e SS 
eS eo A a o. A E IA OR 2 MA di 
da mentor, de SS det o ELE] 
en radianes. tea 30535 
ME EEN e rata ii ds 30540 
y 30:50 
ambien utiliza: X, Y internamente 20580 
20390 
: : 30640 
Jtras subrutinas requeridas: ninguna 0610 
30629 
30627 
como llamarla: 30550 20630 


A 


irco Tangente 


:alcula: ATN 


30660 


YAVAXAXEXMX AIXAM AX 1362880 


Edo ENO 

500 REM x ARCO COSENO KINPUT S+QUTPUT YM 
303 10 REH Y ESTA EN GRADOS»K EN RADIANES 
30520 COSUE 30530: Y=?0-Y1 H=1.370796-W1RETURN 


REM x ARCO SENO xINPUT S>»0UTPUT YH 

REM Y ESTA EN GRADOS »H ESTA EN RADIANES 

REM TAMETEN USA VARIAELES Xrz INTERNARENTE ñ 
XS3IF ABS(S):=,7 07107 TREN 20610 


Xr1-=SXS3IF X<0 TMEN FRINT S+*ESTA FUERA DE RANGO" :STOP 
Wex/2: Zu0 
Ve(X/W=W)/231F (Ye0)+(Y=Z) THEN X=WiGOTO 30610 


WHaN+Y ¡22 Y:3GC0TO 30580 

NANI Et REMIX OTE LY EX ENE MX EX IAMA 464TIGE=2 
HEVIA XI EXE XARXA ZA MD a 039191£-2 

IF AES(S)>,707107 THEN H=1.570796-N 

YA 37 20578: RETURN 


1 


REM xXx ARCO TANCENTE xINFUT X+ OUTPUT Cs:4A 


E 3v670 REM C ESTE EN GRADOS .A ESTA EN RADIANES 
e pS x sE PIBES a AS e 30620 REM TAMBIEN USA E,T INTERNAMENTE 
intrada: s Se > UN A , EA 30690 GOSUE DOBI9:X=AES(X)1C=0 
AS Ea CELO o a A 20700 IF Xx1 THEN C=1: X31/X 
aa AA ARA 20710 ARXxX 
salid: EC: ¿grados, "A en radianes E OS 07 Ex((2.I6423E-IMA=1 .616772-2)W8+9,29096E=2)x4 
a: en Le a a cai 20730 Ext(((B=-?,5 32898-2)XA+, 100563) :A=, 142089) x40. 199925) x4 
PR A 20740 As((B-,3I2DIIZ MAI 1)XX 
= dl 321 A 

. 20720 1F Cal THEN Amt,ETD79G4=A 

'ambién utiliza: B,T internamente 20760" ARTXAICAAME?, PL en 


di subrutinas ei e Signo 


Deo 


e Je 
* has epa oa 


ls hd GOSUB 30090 á : ; 
cr 
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>. tu 


aleula: SGNGO, la componente del signo de X 


O o a 

O A E 
A E A ETA IS o z 

3 hids: Y iguala menos mo pará? Negativa EPA 


uo +1) para Y positiva... cin sn Sa 3 
Tambien utiliza: Ninguna otra variable 


as subrutinas requeridas: Ninguna 


amo lismarla: GOSUB 30810 


a AAA NAAA AS 
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30800 
31810 
30820 
30930 
39940 


KEM xXx SICNO 
IF X<0 THEN 
IF X=0 THEN 
IF X 00 THEN 
RETURN 


INPUT 
Te-Í 
Tag 
T=1 


X»OUTPUT Ta-1>0.+i 


PIN 


a7 
38 
39 
40 


Conexiones para las Terminales de las 
Tarjetas Laterales de la Abertura de 
Expansión (Expansión - Port Edge Card) 


NOMABRE 

DE LA 
EÑ 

RAS" 


SYSRES * 
CAS * 


A10 
A12 
A12 
Ai5 
GND 
Ati 
At4 


AZ 


7 ii 
salida del estroboecopio de direcciones de las filas para RAMS dinámicas de 
16 terminales 
solide del reajuste del sistema, bajo durante el inicio del encendido o con el 
reajuste oprimido, 
salida del estroborenpio de direcciones de lar columnas pura RAMS de 16 
terminnles 
salida de la dirección 
salida de la dirución 
salida de la dirección 
salida de la dirección 
Tierra de la señal 
"salida de la dirección 
salida de la dirección 
salida de la Uirección 
salida del estrabosenpin periférico de escritura 
salida del ertrmboscopio de escritura de momoria 
salida del reconocimiento interrumpido 
salida del extrobscopio de lectura de la memoria 
selida de control dol multiplezor para RAMS de 18 terminales (dinámicas) 
salida de la dirección 
Bus de datos bidireccional 
salida del estrohoscopio periférico de lectura 
Bus de datoa bidireccional 
entrada del interruptor (enmascarillabie) A 
Bus de datos bidireccional 
un “0” lógico en las entradas de tres estudos del TESTen AB-A15, DO-D7, WR, 
KD, IN, OUT, RAS, CAS, -MUX. 
Bus de datos bidirecciónal 
salida de in dirección 
Bus de datos bidireccional 
salida de la dirección 
Bus do datos bidireccional! 
tierra de la seña! 
Bus de datos hidireccional 
* Bus de dirección 
* Bus de datos hidirercional 
entrada de espera del procesador, para permitir memoria lenta. 
salida de la dirección 
salida de la dirección 
salida de la direccón 
tierra de la señal 
salida de la dirección 
salida de 5 volt (corriente limitada) 
salida de la direeción 


NOTA: * Significa negativo ("9" lógico) entrada verdadera o salida 


Tarmiscies del conector de la tarjeta interal AMP P/N 88103 -1 


Er EAS FRA AO 0 E AO O O 


10 12 14 16 86 20 2 24 2 2. 0. 32 34 36. 38 40 


Figura 2. Puntos de ronexión para Ja tarjeta lateral de 
la abertura de expansión (vista desde la parte trasera 
del teclado) 
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Epecificaciones de las 
| Interfaces 


Casete 


Nivel de entrada sugerido para la  2V pico-a-pico a una imperlancia 
reproducción de la grabadora Mínima de 360K ohms. 


Salida típica de la computadora 800 m Y pico-a-pico a 1K ohm 
Nivel a la grabadora | 


Capacidad de conmutación remota 0.5 A max a 6 VDC 
apagado/encendido 


Conexiones de las terminales del conector DiN(ver la figura 1) 
1 Remoto 
2— Tierra de la Señal 
3—. Remoto 
4— Entrada del Borne del Audifono de la Grabadora 
5— Salida al Borne Aux o Mic de la Grabadora 


A 


Señal de Video 


Conexiones de las terminales del borne DIN (ver la figura 1) 


Ll +5 VDC a 50 mA 
2— No utilizada 
3— No utilizada 


4— Señal de video 1.4V pico a pico, 0.4 V sync negativo, 75 ohms 
5— Tierra 


Figura ). Conexiones de las ter- 1 3 
minales para los bornes de TAPE 

(cinta) y VIDEO (DIN) (vistos de 

la parte trasera del teclado) 
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